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AMSTRAD est une marque déposée. 

CPC est une revue mensuelle totalement indépen- 
dante d'AMSTRAD GB et D'AMSTRAD FRAN- 
CE: 


Les noms, prénoms et adresses de nos abonnés sont 
communiqués à nos services internes du groupe, 
ainsi qu'aux organismes liés contractuellement 
pour le routage. Les informations peuvent faire 
l'objet d'un droit d'accès et de rectification dans le 
cadre légal. 


Les articles et programmes que nous publions dans 
ce numéro bénéficient, pour une grande part, du 
droit d'auteur. De ce fait, ils ne peuvent être imi- 
tés, contrefaits, copiés par quelque procédé que ce 
soit, même partiellement sans l'autorisation écrite 
de la Société SORACOM et de l'auteur concerné. 
Les opinions exprimées n'engagent que la respon- 
sabilité de leurs auteurs. Les différents montages 
présentés ne peuvent être réalisés que dans un but 
privé ou scientifique mais non commercial. Ces ré- 
serves s'appliquent également aux logiciels publiés 
dans la revue. 


Dépôt légal à parution 
Distribué en Suisse par : 
SEMAPHORE - Tél. 022.54.1 1.95 


Il est difficile de taper un programme 
d’une revue sans commettre d’er- 
reurs ! Quand les erreurs sont signa- 
lées (Syntax error in.., Line does not 
exist in), la correction est facile puis- 
que la ligne est indiquée, mais 
lorsqu’au ‘‘point de vue”’ du CPC, le 
programme est correct, il peut en être 
tout autrement pour le lecteur : 

Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossi- 
ble de retrouver l’erreur commise, à 
moins de comparer les lignes de votre 
programme avec celles du journal 
mais c’est très long et on risque de pas- 
ser sur une erreur sans la voir. 
C’est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas VOS erreurs. 

La frappe d’un programme de votre 
journal favori (CPC) terminée, vous 
faites ‘RUN?’ et là, vous corrigez tou- 
tes les erreurs signalées par le CPC en 
vous référant au journal pour compa- 
rer. Si, malgré cela, il ne tourne tou- 
jours pas, suivez cette procédure : 
— sauvez votre programme en ASCII 
grâce à l'instruction : Save ‘‘nom 
prog’”, À. 

Puis, si vous êtes sur K7, rebobinez la 
bande jusqu’au début du fichier ; 
— chargez Anti-Erreurs ; 

— entrez le nom de votre programme 
et insérez le support où il se trouve (K7 
ou disquette). 

Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu’à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX< ; c’est le code qui va vous 
permettre de savoir d’où proviennent 
les erreurs. Pour cela, il faut que vous 
compariez les codes du journal à ceux 
de l’écran. Si un code diffère, notez 
sur papier le numéro de ligne qui cor- 





Grégory NOE 


respond à ce code. Continuez ainsi 
jusqu’à la fin du listage. 

Le défilement terminé, recherchez 
votre programme et corrigez les lignes 
que vous avez notées en comparant 
avec le journal. Faites ‘RUN?’ et 6 
miracle ! ça marche. 

Attention, lors de la frappe du pro- 
gramme à traiter, n’omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte et bien 
sûr, ne tapez pas les codes de contrôle. 





10 HPHEHEHEHEHPHEMPHEBMHENEMRE LA 


26 °# # LB 
30 ‘ * ANTI - ERREURS # LC 
49 ° # # LD 
J0 ‘ + VERSION 2.6 # LE 
bù ‘À # LF 
TO HAMMAM LG 
89 ‘ ?LH 
90 ‘ (c} CPC & G. NÛE 1987 LU 
169 ‘ ?RB 
119 ?RC 
120 ‘ >) RD 
130 ‘€ INITIALISATION > RE 
149 ‘ <ECÉCÉCECEL ELEC ELLE EE EEEE DRE 
150 : RG 
ié6 ON ERROR GOTO 1250 >QD 
170 MODE 2 >HH 
180 DIM 6$(23) >6D 


196 FOR 1=6 TO 22:READ 6$:6$(1)=6$: >FR 
NEXT 


260 “ATTENTION LA LIGNE DE DATA CI- RC 
DESSOUS NE CONTIENT PAS TOUTES LES 
LETTRES DE L'ALPHABET ‘1! 

216 DATA ASB,CDLE,F,GH,JKLMN, AD 


P,G,R, TU, V,H, X, Y,2 
226 ‘ ANTI-BUG FICHIER RE 
230 IF PEEK(HIMEM+1)=255 THEN 266  >2D 
240 OPENQUT "CPC" >MA 
256 MEMORY HIMEM-2 ?NX 
260 CLOSEOUT >RJ 
270 POKE HIMEM+1,255 >PF 
280 DEFINT B-2 3H 
290 ‘ »TE 


300 BORDER 6: INK 0,1:INK 1,16:PEN 1 >JN 
:PAPER 0 

316 MOVE 6,16: DRAW 650, 16 ?TK 
320 PRINT TAB(27j ANTI-ERR :GU 


EURS  “;CHR$(24): "Version 2.0" 
:CHRS (24) 
330 MOVE 0,385: DRAW 650,385 >UJ 


340 LOCATE 24,25:PRINT'CPC REVUE DE >EV 
5 STANDARDS AMSTRAD" 


350 WINDOW 1,80,3,23 NL 
360 M$="Realise par Gregory NOE" 3H] 
374 F$="" >XA 
380 FOR 1=i TO LEN(M$) PU 
390 F$=FS+MIDS (M$, I, 1) FL 
40û LOCATE 70-I.5:PRINT F$ >UL 
416 FOR T=1 TO 194 ?LQ 
420 NEXT T,I ?EF 
430 >RH 


440 HAE A] 
###4 

450 ?RK 
466 LOCATE 2,1:PRINT'ENTREZ LE NOM >XT 
DU FICHIER : “: 

470 INPUT “",NF$ FD 
480 IF NF$="" THEN PRINT CHR$(7):G0 >GR 
TO 460 

490 LOCATE Z,3:PRINT'IMPRIMANTE OU >VR 
ECRAN (1/E)?" 

000 R$="":HHILE R$="":R$=UPPERS (INK ?NK 
EY$) : END 

919 IF R$="I" THEN CA=8:PRINT"'BRANC >XD 
HEZ-LA. .." ELSE 549 

920 PRINT#B,CHR$(27);"!":CHR$ (20)  >AR 


530 GOTO 560 IF 
940 IF R$="E" THEN CA=0:G60T0 560  >YQ 
990 GOTO 500 ?1B 


960 CLS:LOCATE 2,3:PRINT'TANT QUE L >0R 
E LISTAGE N'EST PAS TERMINE" 

579 LOCATE 2,5:PRINT'NE PAS ARRETER >JW 
LE MAGNETOPHONE OU NE" 

586 LOCATE 2,7:PRINT"PAS SORTIR LA TL 
DISQUETTE"* 

990 LOCATE 2,16:PRINT"PRESSEZ UNE T >HH 
OUCHE POUR LA LECTURE" 


660 CALL &BBO5 LH 
610 RH 
B20 * KÉLECECEELELEELEELELELE >RJ 


63% ‘< TRAITEMENT DU FICHIER > 
640 ‘ ph} 
65% ‘ 


bb@ OPENIN “!"+NF$ 

679 CLS:PRINT' TRAITEMENT EN COURS... 
686 IF LEN(A$)=255 THEN A$="":LINE 
INPUT#9,B$:G0TO 116 

69% LINE INPUT#9,B$:A$=5$ 


706 IF CA‘»8 THEN GOSUB 1310 

710 IF INKEY(b6)=6 THEN STOF 

72 

738 * CALCUL DE LA CLE DE CONTRD 
LE 

74% 


750 A=0:FLG=9 
766 FOR I=1 TO LEN(A$) 
776 L$=MID$(A$, 1,1) 


788 IF L$=CHR$(34) AND FLG=1 THEN F : 


Lü=0:G0TO 844 


798 IF L$=CHR$(34) AND FLG=0 THEN F : 


LG=1:60T0 849 
896 IF L$=CHR$(32) AND FLG£>1 THEN 
850 


816 IF L$=CHR$(39) AND FLG=6 THEN 8 : 


6 
826 IF FLG=1 THEN 840 


30 L$=UPPERS (L$) 
844 A=A+AGC (L$)+1I 
850 NEXT I 
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O CPC AMSTRAD 
O Abonnement essai 


DO PCompatibles Magazine 


Je m'abonne à : 


860 ‘ TE 
870 CH$=STRS (A) CC 
880 CHS$=RIGHTS (CHS, LEN(CHS)-1) vC 
898 L=LEN(CHS) :L2=LEN (CH$) /2 >XA 
900 A=VAL (LEFT (CH$, L2) ) >TY 
910 C=INT (A/23) >4H 
920 P=A- (C#23) SU] 
930 C$=G$ (P) »XC 
940 A=VAL (RIGHTS (CH$,L-L2) ) >WH 
950 C=INT (A/23) :P=A- (C#23) >UT 
960 C$=C$+6$ (P) >TD 
970 ‘ >TG 
980 FOR 1=1 TO 6 MK 
990 LS=MIDS (AS, 1,1) MY 
1000 IF L$<"9" OR L$>"9" THEN 1030 XJ 
1919 LIS=LIS+LS >XF 
1929 NEXT KE 


1630 VM$="":FOR I=1 TO LEN(AŸ):IF À ?EK 
SCCMID$ (A$,1,1)i<32 THEN VMS=VM#+" 
“ ELSE VMS=VMS+MIDS (AS, I, 1) 


1949 NEXT I:B$=VMS >M4 
1956 ‘ x] 
1960 IF CAC>8 THEN 1070 ELSE 199 2VT 
1976 PRINT LI$:TAB(10) “>":C$ MI 
1986 LI$="":G0TO 1169 ND 


1090 LI$="":PRINTRCA,LEFTS$(B$,95):T >0M 
AB(S7) “"sc$ 

1196 IF LEN(B$)<35 THEN 1166 UT 
1119 FG=1 CG 
1120 B$=MID$ (B$, 56, LEN(B$) ) >UB 


4 REVUES POUR LES PASSIONNES 


CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratultement 1 n° hors-série tous les deux mois. 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles ! A la demande de nos lecteurs, nous prenons désormais les äbonnements. 

PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC”. 
Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux 





180F 
105 F 
55F 
100 F 
200F 
200F 


11 numéros 
6 numéros 
3 numéros 

11 numéros 

11 numéros 

11 numéros 


Prénom 


Ville 


Signature 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Service Abonnement - BP 11 - 35170 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 


ATTENTION | Il n'y a pas d'abonnement rétroactif. 


1130 PRINT#CA,LEFTS (B$, 55) 

1140 IF FG=1 AND CA&>B THEN FG=6:60 
SUB 1310:G0T0 1150 

1150 GOTO 1100 

1160 IF EOF=-1 THEN CLOSEIN ©LSE 60 
TO 686 

1176 IF CA=0 THEN CALL &BB03: PRINT 
TAB(56) CHR$ (24); "UNE TOUCHE... “;CH 
R$ (24) :CALL &BBOS 


1188 CLS:PRINT'MAINTENANT RECHARGEZ 


“sNF$;" ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NOTEES. ." 

1199 END 

1200 
1219 ‘ Letes 
1229 ‘< TRAITEMENTS DES 
1230 ! LLC EEE EEEEUELE 
1249 ‘ 

1256 IF ERR=25 THEN CLS:PRINT CHR$( 
T7); CHR$ (24); "FICHIER NON ASCII": CHR 
$(24):END ELSE CONT 

1260 ‘ 
1278 ‘ 
1280 ‘< 
1290 ‘ 
1506 ‘ 
1319 COM=COM+1: IF COM>19 THEN CALL 
&BBG3:PRINT TAB(59) “UNE TOUCHE..." 
:CALL %BB05: CLS: COM=1 

1326 RETURN 
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DOMINOS 





Philippe DALIBARD 


Ce jeu célèbre et aux règles très simples peut maintenant se dérouler 
sur l'écran de votre Amstrad. N'essayez pas de tricher 


Après avoir mélangé le jeu, l'ordina- 
teur distribue à chaque joueur sept 
dominos. Ensuite, il tire au sort le 
joueur qui débutera la partie. 

Votre jeu s'affiche en bas de l'é- 
cran, chaque domino portant la 
mention de son numéro. 

La sélection du domino s'opère en 
tapant son numéro et, lorsque l'ordi- 
nateur le demande, le côté du jeu 
où celui-ci doit être placé . 

Chaque joueur peut piocher jus- 
qu'à 8 dominos ; au-delà ou si la pio- 
che est vide, il est possible de pas- 
ser son tour. 


Big CPC is watching you ! 


Le nombre de dominos présents 
dans le jeu de l'ordinateur est repré- 
senté par des asterisques en haut 
de l'écran. 

A la fin de chaque partie, le nombre 
de points restant au joueur perdant 
est totalisé. En cas de blocage du 
jeu, les points des deux joueurs 
sont totalisés. 

Le perdant est le joueur qui atteint 
le premier 50 points. 

Le programme est très facile d'utili- 
sation. Il limite (rend même impos- 
sible) toute erreur de choix ou tou- 
te tricherie ! 


CEE JE 





24 ‘ JEU DE DOMINOS 

34 ‘ FH, DALIBARD/1987 
46 

96 j=INT (RND#2) +1: j2=] 


66 DIM a$(285.b$i28},v(28; ,a(2,28), ;ù 


d(29),d1i2,2 
} 

75 ON ERROR GOTO 3569 

86 MODE à 

96 WINDOH#1. 1,86, 14,22 

199 ‘ 

116 ‘ REDIFINITION DES CARACTERES 
129 

136 SYMEOL AFTER 94 


).dof (56), ai (28) .d3128 


140 SYMBOL 91,8FF,RFFBFF RFF BF & à 


FF,ÈFF,&FF 


150 SYMBOL 92,8FF,BFF, RFF, REZ, RET,& 5 


FFAUFF,LFF 


>PX 


#04 


#RC 


169 SYMBOL 93,RFF, RFF RFF, BEF, BF, NE 


FF, àFF, LE7 


170 SYMBOL 94,4E7,4FF,LFF,&FF, BFF, à | 


FF,UFF,BFF 


180 SYMBOL 200,8FF,LFF,BFF,BFC,BFC, : 


LFF,&FF,LFF 


196 SYMBOL 201,8FF,UFF,BFF,BSF,R3F, 2 


LFF,LFF,FF 


206 SYMBOL 202,4FF, 887,67, BFF,BFF, 


UFF,LFF,WFF 


210 SYMBOL 203,8FF,8FFUFF, FF, FF, 2 


C3, BCS, RFF 


220 SYMEOL 264,8FF,487,487,8FC,8FC, à 


UFF,LFF,BFF 


230 SYMBOL 205,8FF,2FF, RFF, SF, BIT, à 


MEL, LEL&FF 


24 SYMBOL 206,4FF, 487,887, 4FF,BFF, 


HEDEDCE 


487, LB7,&FF 


250 SYMEOL 207,8FF,LEL BEI, BFF,BFF, 


RE, BEL, RFF 


260 SYMBOL 208,4FF, 47,487, 4FC,UFC, à 


487, 887,8FF 


276 SYMBOL 209,8FF,REL, BEI, B3F, IF, 


GEL ,RE1,&FF 


280 SYMBOL 219,4FF,884,884,8FF,BFF, à 


484, UB4,LFF 


290 SYMBOL 211,8FF.821,421,RFFRFF, 2 


L21,821,UFF 
300 ‘ 
310 
32 ‘ 
36 RESTORE 
340 DATA CCCCCC,CCCCEC,@, CCC, CEC 
CEA, CCCNCE, CCECEA 2, CCE, CELL 
CLEA CAEN CEEAIREEENAS5, 
CCE CEEANS 6 TELE, CCE", 2, LI 
ACC, CMCCENS 3, ICE CLEA 4 CJENCA 
EMEA SCIE ESC 6 CINE" 
[A7 
390 DATA \CEACE, CAEN 4, CCI, EE 
EAST, LEE BE EATA EE 
NANTANNNTANNNUE AUTANT UT 
UE EMA 7 EU AA BAIE 
NT ATEN RAT ANT ATEN 
AVAL ATANITAUI ET 
éd DATA AAA LAS 18, AAA V 
ALL UN, 12 


CREATION DES DOMINOS 


370 DATA 91,91,91,91,91,91,200, 201, à 


91,91,202,205,91,91,204,205,91,91,2 
66,207,91,91,208,209,91,91,216,211, 
200,201,200, 201,206, 201,292, 203, 200 
201,204, 205, 206, 261,206, 207,200, 20 
1,208, 209,200,201,219,211 
386 DATA 292,203,202,203, 202, 203,20 
4,205, 202, 203,206, 207, 202,203, 200,2 
09,202,203,210,211,204,205, 204,205, 
204,205, 206, 207, 204, 205, 208, 209, 264 
.205,219,211,206, 207, 206, 207,206, 26 
7,208, 209,206,207,210,211,208, 209,2 
06, 209,268, 209,210,211,210,211,219, 
211 
390 FOR n=1 TO 2B:READ a$(n),b$(n), 
v(n):NEXT n 
460 FOR n=1 TO 28 
419 aa$="" 
420 FOR i=i TO 4 
430 READ a 
449 aa$=aa$+CHR$ (a) 

6 


PA 


Ti 


A 


RF 


AR 


a 


>MA 


DA 
>DF 
2VG 
JC 
>MJ 


459 NEXT :i 

4ëé do$in)=aa$ 

470 NEXT n 

489 ‘ 

490 ‘ TIRAGE 

500 

916 FOR i=i T0 28 

528 x=INT(RND(B)+#29) 

539 FOR m=i TO i 

549 IF x=dim) GOTO 526 

904 NEXT m 

J68 d(i)=x 

9/9 NEXT i 

080 ‘ 

399 ‘ DISTRIBUTION 

bg 

619 FOR j=i TO 2 

620 m=1 

630 FOR i=i+(j-1i*7 TO 7+(j-1)#7 
640 ditj,i)=d(i) 

656 d(ii=0 

66 m=m+i 

670 NEXT i 

680 NEXT j 

690 FOR i=8 TO 13 

760 FOR n=i+i TO 14 

716 IF LEFT$(do$ (di (2,1)),4)>LEFTS( 
do$ (di (2,n)),4) THEN s=di(2,i):di(2 
i=di(2,n):di(2,n)=s 

7230 NEXT n 

739 NEXT i 

740 LDCATE 13,2 

750 ‘ 

766 ‘ PRESENTATION 

778 

780 WINDOH#, 1,80, 1,25 

799 r$="":s$="" 

869 ORIGIN 6,36: DRAW 6,35: DRAW 86, 
35:DRAW 89,0: DRAN 4,6 


816 ORIGIN 6,205:DRAW 6, 150: DRAM 65 : 


9,190: DRAN 639,9: DRAW 0,0 

820 j=j2 

830 

840 q=1:p=b:b1=0:y=0:v2=6:plg=8:pld 
=9:ha=d:hb=0: $=1 

850 ON j 60TO 866,870 

866 LOCATE 2,2:PRINT" Vous 
0 884 

876 LOCATE 2,2:PRINT" Anstrad 

880 PRINT CHR$(7):1F q=1 AND j=2 60 
T0 1646 


“:60T 


890 IF j=2 GOTO 1930 
90 ‘ 

910 ‘ VOUS 

92 ‘ 


30 m=i:mi=i 
946 FOR n=i T0 Z8 


?NH 
FE 
?PE 
TC 
?TD 
>RF 
>CH 
>PP 
YD 
>PY 
?PC 
2MH 
F4 
?TD 
?TE 
RG 
3VG 
>PD 
XP 
>DJ 
>HH 
EE 
PB 
>PD 
?DH 
èLF 
?XE 


3TF 
TB 
2YP 


>NP 
:JH 


CE 
>GF 


2ML 
?RK 
?TÀ 
?TE 
>CB 
>DK 


950 IF ditjsni=é GOTO 1030 

960 SOUND 1,119,1,13 

976 IF n>7 GOTO 1010 

980 LOCATE#1, 12+(m-1)47,2:PRINT#I, 
a$ (di ( j,n) } :LOCATEH1, 124 (m-1)#9, 3: 

PRINTH1, 3b$ (di (j,n)) :ORIGIN 88+(m-1 
1#72,175:DRAN -3,-6:DRAN -3,-34:DRA 

W 44,-34:DRAW 47,-30 


996 ORIGIN 85+(m-1)#72, 141: DRAW 6,4 > 


1900 LOCATE#, 12+ (m-1)#9,5:PRINTH1, : 


sdi(j,n):m=mti:G0TO 1640 


1919 LOCATE#I, 3+(mi-1)#9,6:PRINT#1 : 


, a$(ditj,n)}:LOCATE#1,3+(mi-1)x9,7 
1PRINT#1, 5b$ (di (j,n))}:LOCATE#I,3+(m 
1-1)+9,9:PRINT#I, sdi (j,n):0ORIGIN i6 
+(mi-1)472,110:DRAW -3,-6:DRAW -3,- 
34:DRAN 44,-34:DRAW 47,-36 :0RIGIN 
13+(mi-1)+72,76:DRAW 6,4:d(1)=0 
1620 mi=mi+i 

1939 m=mti 

1646 NEXT n 

1950 IF bl=i GOTO 3266 


1668 IF b1=2 GOTO 3294 
1979 ‘ 

1989 ‘ VOTRE CHOIX 
1998 ‘ 


1109 CALL &BB9C:LOCATE 1,24: PRINT"Q : 


uel domino (140 pour piocher, à pou 
r passer) :" STRING$(32," "}s:LOCAT 
E 48,24: INPUT: d2:CALL &BB9C 


1116 LOCATE 1,24:PRINT STRINGS$ (80, " : 


Le | 

1129 IF d2=0 AND p=i GOTO 2966 
1139 IF d2=ù AND y<8 GOTO 1190 
1146 IF d2=0 GOTO 2980 


1156 IF d2€:109 GOTO 1316 
1169 ‘ 

1170 ‘ PIOCHE 

1180 ” 


1190 IF y=8 GOTO 1160 

1206 FOR 1=15 TO 28 

1216 IF d(i}=0 GOTO 1260 

1220 di(i,i)=d(i):LOCATE#1, 12+(y-1) 
49,6: PRINT#1,a$(di(i,i)):LOCATE#I,1 
24+(y-1)49,7:PRINT#1.b$(d1(1,1)):0RI 
GIN i6+y#72,110:DRAN -3,-6:DRAW -3, 
-34:DRAW 44,-34:DRAW 47,-30 

1238 SOUND 1,1911,20,13 

1246 LOCATE#1,12+(y-1)#9,9:PRINT#I, 
di(i,i) 

1256 ORIGIN 13+(v}*72,76:DRAN 6.4:d 
(i}=0:y=y+1 :60T0 1190 

1266 NEXT i 

1270 FOR i=1 TO 196:LOCATE 0, 1:PRI 
NT'LA PIOCHE EST VIDE !":NEXT i:LOC 
ATE 90,1:PRINT STRING$(29," “j:p=i: 
60TO 1199 

1280 ‘ 


?TQ 
NL 
2MJ 
CV 


?0M 
KV 


?AF 


VE 
PE 


>YD 


1298 ‘ EMPLACEMENT 

1300 

1319 FOR n=i TO 28 

1320 IF d2=di(i,n) THEN di(i,n)=d2: 
GOTO 1340 

133 NEXT n 

1349 k=O:k1=0:k2=0: kKI= D: k4= 0 

1350 IF (LEFT$((do$(di(1,n))},2)=LE 
FT$(r$,2)) THEN ki=i 


1369 IF (RIGHT$((do$(di(1,n)}),2)=L : 


EFT$(r$,2)) THEN k2=i 


1370 IF (RIGHTS ((do$ (di (i,n))),2)=R : 


IGHT$(r$,2)) THEN K3=i 


1380 IF (LEFT$((do$idi(i,n)}),2)=RI : 


GHT$(r$,2))} THEN k4=i 
1390 k=k1+k2+k3+k4 
1409 IF k=0 AND q>=2 GOTO 1160 


1419 IF k=ÿ AND q=1 THEN CLS#j:G0T0 : 


2700 


1420 IF koi AND (d2=1 DR d2=8 OR d2 : 


=14 OR d2=19 OR d2=23 OR d2=26 OR d 
2=28) GOTO 1450 


1436 IF k>1 AND RIGHT$(r$,2)=LEFTS( à 


r$,2) GOTO 1459 

1449 IF k£1 GOTO 1496 

1458 IF ki=1 GOTO 1574 

146ÿ IF k2=1 GOTO 2704 

1474 IF k3=1 GOTO 1626 

1484 IF k4=1 GOTO 2716 

1496 CALL BBB9C:LOCATE 1,25:FRINT"A 
gauche ou a droite (g ou d) :"STRI 

NG$ 147," “3: LOCATE 33,25: INPUT 5pl 

$:CALL &BB9C 

1569 LOCATE 1,23:FRINT STRINGS (79, ° 
" 

1916 CLS#) 

1926 IF UPFER$(Pi$)="D" GÜTO 16it 
1530 : 

1546 ‘ DOMINO GAUCHE 

1559 ‘ 

156% IF (LEFT$((do$idi{jsn)ii,2)=LE 

FT$ir$,2)) THEN GOTO 157 ELSE 2706 


1576 do$(ditj,n))=RIGHT$((do$(di(], 
n}}),2)+LEFT$((do$(ditj,n))},2):60T 
0 2764 

1584 ‘ 

1596 ‘ DOMINO DROITE 

1669 * 

1616 IF (RIGHT$((do$idiij,niii,zi=R 
IGHT$ir$,2)) THEN GOTD 1824 ELSE 27 
14 

1626 do$iditj,ni)=RIGHT$Cido$idi(;, 
n)j).Z)4LEFT$((do$iditj,ni)},2):G0T 
Ô 2719 

1838 

1o4ÿ ‘ AMSTRAD 

1650 ‘ 


?PV 
PG 


CF 


FM 


NE 
:1H 
:YB 
2YC 
2YD 
3NJ 


>AÀ 


»Y6 
>"H 


#XE 


FA 


> 


2YC 


#YD 
AŸE 


1ébû k=28:1=1 

1670 FOR i=28 TO 1 STEP-1 

1680 IF i<>k GOTO 1739 

1696 FOR n=8 TO 14 

1790 IF di(2,n)=k GOTO 276û 

1719 NEXT n 

1720 k=k-(1+1):1=1+1 

1739 NEXT i 

1749 FOR i=1 TO 7 

1750 k=0 

1769 FOR n=8 TO 14 

1776 IF (RIGHTS (do$ (di (2,n)).2)=RIG 
HT$(do$(1},2)) THEN k=k+1 

1786 IF (LEFT$(do$(di(2,n)),2)=RIGH 
T$é(do$(i),2)) THEN k=k+1 

1799 NEXT n 

1899 al(i)=k 

1819 NEXT i 

1829 m=0 

1836 FOR n=i TO 14 

1849 IF ai(n)>ai(m) THEN m=n 

185 NEXT n 

1866 FOR n=8 TD 14 

1876 IF (RIGHTS (do$ (di (2,n)).2)=RIG 
HT$(do$(m),2)) GUTO 2766 


1886 IF (LEFT$(do$ (di (2,n)),2)=RIGH : 


T$(do$(m),2}} GOTO 2786 

1894 NEXT n 

1990 ‘ 

1919 ‘ CHOIX AMSTRAD 

1920 ‘ 

1936 FOR 1i=i TO 28 

1946 IF dili,il:>6 GOTO 264% 

1954 NEXT 1 

1969 LOCATE 56,1:PRINT'VOUS AVEZ GA 
GNE :!!" 


1976 FOR s=190 TO 19 STEF-1:SOUND i k 


,5,2,11:S0UND 2,5-3,2,11:SOUND 1,5+ 
3,2,11:NEXT s 

1986 m=1 

1996 FÜR i=8 TO 28 


2666 IF dit2,i}>9 THEN LOCATE 15+{ 


m-1)45,2:FRINT do$ (di (Z,i})::ORIGIN 
127+im-1) #40, 366: DRAW -2,-3:DRAW - 

34,-3:DRAW -34,13:DRAW -32,16:0RIGI 

N 95+(m-1)#40,366: DRAN 3,3: m=mti 

2019 NEXT 1 

2626 GOTO 3296 

2030 ‘ 

2646 FOR i=i TO 4:ai(i)=8:NEXT i 

2056 FOR x=8 TO 28 

2669 IF ditj,x)=0 GOTO 2110 

2076 IF (RIGHTS ((do$(di(j,xi)i,2)=l 

EFT$(r$,2)) THEN ai(i)=aiti}+20 


2080 IF (RIGHTS (do$ idi (j, x))),2)=R 


IGHT$(r$,2)} THEN al (2}=al (2) +26 


2690 IF (LEFT$((do$idi{j,x))},2)2LE > 


FT$ir$,2}} THEN al (3)=ai (3)+26 
2106 Ir (LEFTS${(do$ (di (j,x)3),2)=RI 


>JH 
?RQ 
PT 
>LD 
?TV 
2VK 
NG 
V6 
CG 
>WA 
>LB 
2DY 


?CE 


#ÆC 


GHT$(r$,2)) THEN al(4)=ai (4)+20 
2110 NEXT x 

2120 FOR x=8 TD 28 

2136 IF di(j,x}=0 GOTO 2180 

2146 IF (RIGHTS ((do$ (di (1,x))),2)=L 
EFT$(r$,2)3 THEN ai(ii=aiti)-i 

2150 IF (RIGHT$((da$(di(1,x))),2)=R 
IGHT$(r$,2)) THEN ai (2)=ai (2)-1 
2160 IF (LEFT$((do$(diti,x))),2)=LE 
FT$(r$,2)) THEN ai(3)=al(3)-1 


2170 IF (LEFT$((do$(di(i,x))),2)=RI : 


GHT$(r$,2)) THEN al (4)=a1 (4)-1 

2189 NEXT x 

2199 FOR x=8 TO 28 

2206 IF di(i,x)=0 THEN 2270 

2219 FOR i=1 TO f 

2226 IF (RIGHT$((do$idi(1,x))},2)=L 
EFT$(do$(d3(i)),2)} THEN al(1)=ai(i 
)-1 

2230 IF (RIBHT$((do$ (di (1, x) )),2)=R 
IGHT$(do$id3(ii),2)) THEN ai(2j=al( 
2)-1 

2246 IF (LEFT$((do$(di(1.x))),2)=LE 
FT$(do$(d3(i)),2)} THEN ai (3)=ai (3) 
-i 


2259 IF (LEFT$((do$(di(i,x))),2)=RI : 


GHT$(do$(d3(i}},2)} THEN al(4)=ai (à 
}-1 

226% NEXT 1 

2270 NEXT x 

2286 m=0 

229% FOR i=i TD 4 

25006 IF alili)>ai(m) THEN m=1 

2319 NEXT : 

2520 IF m:0 GOTO 2549 

233 : 

2346 ‘ FIOCHE AMSTRAD 

2350 ‘ 

2266 FOR i=8 T0 28 

23576 IF y2=8 GOTO 299% 

2580 IF d(i)=6 GOTD 2496 

2399 k=0 

2400 FOR n=8 TO 14+y2 

2416 IF di(2,n:=ù GOTO 243 

2426 IF do$idii))>do$(di (2,n); THEN 
k=nti 

2450 IF k=ÿ THEN k=8 

2446 NEXT n 

2456 FOR n=28 TO k STEP -i 

2460 di(2,n+1)=di(2,n) 

2479 NEXT n 

2486 di(2,k)=d(i)sd(i=b:y2=y2+1: 50 
UND 1,1911,20,13: GOTO 2049 

249% NEXT : 

2590 GOTD 296û 

2518 

2526 ‘ EMPLACEMENT 

253 ‘ 

2549 ON m GOTO 2586,2619, 2556, 2640 


>XB 
La 
TM 
DE 
>UX 


WB 


#TV 


?WA 
MF 
YA 
?YB 
3YC 
#1 
7 


2550 FOR n=28 TO 8 STEP-1 

2566 IF (LEFT$((do$(di(j,n)}),2)=LE 
FT$(r$,2)) GOTO 1570 

2579 NEXT n 

2580 FOR n=28 TO 8 STEP-1 

2599 IF (RIGHT$((do$(di(j,n))},2)=L 
EFT$(r$,2)) GOTD 2766 

2609 NEXT n 

2616 FOR n=28 TO 8 STEF-1 

2626 IF (RIGHTS ((do$ (di (j,n))),21=R 
IGHT$(r$,2)) GOTO 1620 

2836 NEXT n 

2649 FOR n=28 TO 8 STEP-1 

2650 IF (LEFT$((do$(di(j,n))),2)=RI 
GHT$(r$,2)} GOTO 2719 

26b6 NEXT n 

2670 ” 

2684 ‘ AFFICHAGE DANS JEU 

2690 


2706 r$=do$ (di(j,n)i+ré$:SOUND 1,406 : 


:60T0 2750 


2719 ré=r$+do$ (di (j,n)):SOUND 1,400 ; 


:60T0 282ÿ 
2720 
2739 ‘ AFFICHAGE À GAUCHE DU JEU 
2740 
2754 IF plg=ÿ THEN plg=i :ha=2:LOCA 
TE 1+{plg-1)#5,7:PRINT LEFTS (do$ idi 
(j,ni),2):LOCATE i+(plg-1}#5,8:PRIN 
T RIGHT$(do$ (di (j,n)i),2}:ORIGIN 4,2 
68: DRAWR 14,0: DRAWR 1,2:G0T0 2896 
2764 IF ha=2 THEN do$ (di {j,nj)=RIGH 
T$(do$idi(j,n)},2)+LEFT$(do$(ditj,n 
)),2}:6070 2786 
2774 LOCATE i+(plg-1}#5, 16-ha: PRINT 
do$(di(j,n)}:DRIGIN 311+(p1g-8) +49 
,239:DRAW -2,-3:DRAW -34,-3:DRAW -3 
4,13: DRAM -32,16:DRIGIN 277+(plg-B} 
#49,236:DRAW 3,3:plg=plg-1:G60T0 289 
(] 
2786 LOCATE i+(plg-1)#5,5:PRINT do$ 
(ditj,n)):DRIGIN 31+(plg-1})+40,318: 
DRAW -2,-3:DRAW -34,-3:DRAW -34,13: 
DRAW -32, 16: ORIGIN -1+(plg-1)#46,31 
B:DRAW 3,3:plg=pla+i:G0T0 2890 
2798 
2809 ‘ AFFICHAGE À DROITE DU JEU 
2816 : 
2826 IF pld=17 THEN pld=iéshb=2:L0C 
ATE 78,7:PRINT RIGHT$(do$(di(j,ni}, 
2):LOCATE 78,8:PRINT LEFT$ (do$ (di; 
n)),2):DRIGIN 629,276: DRAWR -1,-2: 
DRAWR -14,6:DRAWR 1,2:DRAMR -1,-2:D 
RAWR 9,36: DRAWR 1,2:G0TD 2896 
2839 IF hb=2 THEN do$ (di(j,ni)=RIGH 
T$ido$(di(j,ni),.2}+LEFT$(do$(ditj,n 
)},2):6070 2856 


2844 LOCATE 1+(pld-13#5,16-hb: PRINT à 


8 


EH 


2NA 


?RD 


?BE 


na 


>IA 
C 
»D 
D 


NX 


:do$ (di (j,n)):0RIGIN 351+(p1d-9)#49 
,239:DRA -2,-3:DRAW -34,-3:DRAW -3 
4,13:DRAM -32, 16:0RIGIN 317+(p1d-9) 
#49,236:DRAW 3,3:pld=pld+i:G0TD 289 
0 

2850 LOCATE 1+(pld-1)#5,5:PRINT do$ 
(di(j,n)):ORIGIN 631+(pld-16)#49,31 
B:DRAW -2,-3:DRAW -34,-3:DRAW -34,1 
3:DRAW -32, 16:0RIGIN 319+(p1d-9) #40 
,318:DRAN 3,3:pld=pld-1 

2860 

2870 ‘ JOUEUR SUIVANT OU FIN DE FAR 
TIE 

2880 

2890 d3(#)=d1 (j,n):f=ftiidi (j,n)=0 


2906 IF j=1 THEN GOTO 2980 
2916 FOR i=1 T0 28 

2920 IF di(2,1)4:6 GOTD 2986 
2936 NEXT : 

294 LOCATE 13,1:PRINT" * 


2950 LOCATE 59,1:PRINT'VOUS AVEZ PE : 


RDU !i1" 


2966 FOR 5=15%6 TO 2509 STEP 10:S0U : 


ND 1,5,3:NEXT 5 
2970 b1=2: j=1:60T0 930 

2980 IF j=1 THEN j=2 ELSE j=1 
2990 m=1 


3909 LOCATE 13,1:PRINT STRING$ 30," > 


“je 
3416 FOR i=1 TO 28 
3620 IF di(2,i)€>9 THEN LOCATE 13#( 
a-1)42,1:PRINT'E “ememti 
3030 NEXT i 

3040 IF LEFTS(r$,2) RIGHTS ir$,2) G 
OTO 3244 
3656 FOR i=1 TO 2 
3060 FOR x=1 TO 26 


3676 IF LEFT$#(do$(di(i,xii,2)=LEFTS > 


(r$,2) GOTO 3240 


3086 IF RIGHT#(do$(diii,x)i,2)=LEFT 


$(r$,2) GOTO 324 
3698 NEXT x 


© 319 NEXT i 


3116 FOR i=i TO 28 


3120 IF LEFTS(do$(d(iii,2)=LEFTS (ré > 


,2} 6070 5248 


3139 IF RIGHTS do$(d(i}},2)=LEFT$(r : 


$,2) GOTO 3246 

3140 NEXT 

3156 m=1 

3169 FÜR i=i TO 28 

3170 IF di(2,i)<}0 THEN LOCATE 13+( 

m-1)#5,2:PRINT do$ (di (2,1));:DRIGIN 
127+(m-1}+49,36b:DRAH -2,-3: DRAW - 

34,-3:DRAW -34,13:DRAW -32, 16: 0RIGI 

N 95+(m-1}#40, 366: DRAW 3,3:m=mti 

3186 NEXT : 

3196 bl=i:j=1:60T0 755 


Ca 


LT 


AL 


ER 


LR 
zUM 


=] 
“1 


VD 
3VK 
LP 
?CX 


3200 LOCATE 50,1:PRINT"JEU BLOQUE! ! 
qu 

3210 FOR 5=300 TO 100 STEP-5: SOUND 
1,5,2,13:SOUND 2,5+10,1,13:NEXT 5 
3220 FOR 5=100 TO 300 STEP 5:SOUND 
1,5,2,13:SOUND 2,5-10,1,13:NEXT s 


3230 GOTO 3290 
3240 CLS#i: q=q+i1:GOTD 850 


3250 GOTO 3290 


3260 

3270 ‘ RETOUR AU DEBUT / FIN DE PAR 
TIE 

3280 

3290 CALL &BB9C 

3300 FOR j=1 T0 2 

3519 FOR i=i TO 28 

3320 vilji=vi(ji+v(di(j,i)) 

3330 NEXT i 

3340 ON j GOTO 3356, 3360 

3350 LOCATE 71, j:PRINT" VOUS: " USIN 
G"#H#";vi(j):G0TO 3570 

3366 LOCATE 71,j:PRINT" AMS "s"s"sÙ 
SING"###" 5; vi (3j) 

3370 NEXT j 

3380 FOR j=1 TO 2 

339% IF vi(ii:=50 THEN ON j GÜTD 54 
06,3430 ELSE GOTO 3440 


3409 LOCATE 26,8:PRINT"VOUS AVEZ FE : 


RDU LA PARTIE ‘11 
3410 FOR s=1 TO 3:S0UND 1,239, 10:50 
UND 1,9: SOUND 1,239, 36: SOUND 1, 0:50 
UND 1,319, 49:SOUND 1,0: SOUND 1,239, 
Sû:SOUND 1,9: NEXT 5 

3420 GOTO 3456 

3430 LOCATE 26,8:PRINT"VOUS AVEZ GA 
GNE LA PARTIE !!1" 


3446 FOR si=i TO 15:FOR 5=84 T0 130 ; 


STEP INT (RND#16)+1: SOUND 1,5,2, 13: 
NEXT s:SOUND 1,6, INT (RND#3) +1: NEXT 
si 
3456 FOR i=1 TO 2:v1(i)=0 :NEXT i 
346 NEXT j 
3476 CALL 4BB9C 
3486 LOCATE 55,2: INPUT"UNE AUTRE ‘; 
z$ 
3496 IF j2=1 THEN j=2 ELSE j=1 
3500 j2=j 
3516 IF UPPERS(LEFTS(2$, 1))<>"N" TH 
EN ERASE a$,b$, v,a,d,di,dof,ai,d3:6 
OTO 66 
3526 END 
3530 : 

3540 ‘ TRAITEMENT DES ERREURS 

3556 ‘ 

3566 LOCATE 29, 1:PRINT"ERREUR No":E 
RR; "LIGNE": :ERL 

3570 RESUME NEXT 

3586 END 


?FK 


2NF 


NF 


2MK 
UA 
NB 
?YD 
?ŸE 


YF 
>WK 
BG 
LL 
>VP 
#VE 
>QP 
?CF 


:UA 
3VE 


CE 
>XT 


AL 


de 
Le] 


2ŸF 
3WK 
?WK 
?6C 


>WD 
DK 
AN 


#YJ 
2YD 
#YE 
YF 
AT 


ML 
?1E 


Daniel JAGER 


Ce programme vise à l'apprentissage des 
départements français, d'une manière moins 
rébarbative puisque ludique. Il est présenté 

sous la forme d'un jeu de l'oie 
de 95 cases que chaque joueur 
(jusqu'à 8 participants) 
devra effectuer. 


La progression des joueurs s'effec- 
tue par lancer d'un dé. Une fois le 
déplacement de son pion effectué, 
le programme demande au joueur 
le nom du département sur lequel il 
est tombé. Il faudra répondre sans 
omettre les articles, mais en négli- 
geant les tirets. Une mauvaise 
réponse entraîne un recul de quel- 
ques cases avec passage au joueur 
suivant. En cas de bonne réponse, 
le CPC demande la préfecture du 
département concerné. Une autre 


sopatr 


œ 
es 
n 


CORD UMPOT pepe 


[:] 


e1 


TO pee me pus me 
Oéoan 


2 2 
3 

4 
Ss268728 
34883284 


44 
_ 87383940414243 


6061626864 
; 6s 





bonne réponse permet alors d'avan- 
cer d'un nombre de cases détermi- 
né aléatoirement. Pour abandon- 
ner, le joueur tapera ABANDON 
une fois son tour arrivé. 


Les règles du jeu sont expliquées 
dans le programme. Une fois tous 
les joueurs arrivés, un tableau de 
classement est dressé. En définiti- 
ve, ce programme se veut être une 
manière plus agréable d'apprentis- 
sage des départements. 


> 


66 
70696867 
71 


23747576 
81807978 


8939691 
88 


32 
33 
3495 








go dé 
ni LB 
34 AUTEUR : JAGER Dariei #LC 
4 :LD 
si) sur Amstrad CFL dé4 :LE 
ët = na ane TP LF 
L) “L5 
86 GOSUE 3336 #H] 
94 ON BREAK GOSUE 3326 :QÙ 
196 DATA 61,B0URG EN ERESSE.L AIN  :XH 
iié DATA &2,LAON,L AISNE MA 
126 DATA 43, MOULINS, L'ALLIER :0R 


136 DATA G4,DIGNE.LES ALFES DE HAUT :FE 
E PROVENCE 

146 DATA 65,GAP,LES HAUTES ALFES AU 
159 DATA G6,NICE,LES ALPES MARITIME EG 
) 

166 DATA 07, PRIVAS, L'ARDECHE FX 
176 DATA 98, CHARLEVILLE MEZIERES.LE :RH 
S ARDENNES 


189 DATA 49,FÜIX.L'ARIEGE MD 
196 DATA 16, TROYES, L'AUBE FM 
260 DATA 11,CARCASSONNE, L AUDE ?W 
216 DATA 12,RODEZ.L'AVEYRON NM 


226 DATA 13.MARSEILLE,LES BOUCHES D LU 

U RHONE 

236 DATA i4,CAEN,LE CALVADOS 3XG 
249 DATA 15,AURILLAC,LE CANTAL 1H 
256 DATA ië.ANGOULEME,LA CHARENTE  :CX 

26% DATA 17,LA ROCHELLE,LA CHARENTE >N0 
MARITIME 


270 DATA 18,F0URGES, LE CHER WU 
280 DATA 19,TULLE,LA CORREZE »XC 
290 DATA 29, AJACCIO, LA CORSE >XE 


306 DATA 21,DIJON,LA COTE D'OR ?VG 
316 DATA 22,SAINT BRIEUC,LES COTES >KQ 
DU NORD 


326 DATA 23,GUERET,LA CREUSE >XB 
33% DATA 24,PERIGUEUX,LA DORDOGNE  >CP 
34% DATA 25,BESANCON,LE DOUBS 3YL 
350 DATA 26, VALENCE.LA DROME ?X1 
36b DATA 27,EVREUX, L'EURE >PM 


370 DATA 28,CHARTRES,L'EURE ET LOIR RE 
9 


380 DATA 29,QUIMPER,LE FINISTERE BF 
390 DATA 30,NIMES,LE GARD UE 
40ù DATA 31, TOULOUSE, LA HAUTE GARON >6K 
NE 

419 DATA 32, AUCH,LE GERS >TD 
420 DATA 33, BORDEAUX, LA GIRONDE AY 
430 DATA 34, MONTPELLIER,L'HERAULT DK 
449 DATA 35,RENNES, L'ILLE ET VILAIN PN 
E 

45% DATA 36, CHATEAUROUX, L'INDRE 2 
46 DATA 37, TOURS,L'INDRE ET LOIRE NE 
470 DATA 38,GRENOBLE, L'ISERE >RR 
486 DATA 39,LONS LE SAUNIER,LE JURA >DH 


490 DATA 40, MONT DE MARSAN,LES LAND >FY 
ES 

900 DATA 41,BLOIS,LE LOIR ET CHER  >AY 
919 DATA 42,SAINT ETIENNE,LA LOIRE >CM 
9320 DATA 43,LE FUY,LA HAUTE LOIRE  >BB 
930 DATA 44, NANTES, LA LOIRE ATLANTI >HV 
QUE 


94% DATA 45,O0RLEANS, LE LOIRET 2YY 
390 DATA 46,CAHORS,LE LOT >UG 
960 DATA 47,AGEN,LE LOT ET GARONNE ?BT 
576 DATA 48,MENDE,LA LOZERE WI 


960 DATA 49,ANGERS,LE MAINE ET LOIR >DD 
E 

390 DATA 59,SAINT LO,LA MANCHE YA 
660 DATA 51,CHALONS SUR MARNE, LA MA >GD 
ANE 

610 DATA 52,CHAUMONT,LA HAUTE MARNE >DN 
620 DATA 53,LAVAL,LA MAYENNE >XK 
630 DATA 54,NANCY,LA MEURTHE ET MOS HF 
ELLE 

646 DATA 55,BAR LE DUC,LA MEUSE YJ 
659 DATA 56, VANNES, LE MORBIHAN IN 


669 DATA 57,METZ,LA MOSELLE WA 
676 DATA 5B,NEVERS, LA NIEVRE XD 
686 DATA 59,LILLE,LE NORD UF 
698 DATA 60, BEAUVAIS, L'OISE RT 
706 DATA 61,ALENCON, L'ORNE ?0H 


710 DATA 62, ARRAS,LE PAS DE CALAIS BE 
720 DATA 63, CLERMONT FERRAND, LE FUY ?LH 
DE DOME 

736 DATA 64,PAU,LES PYRENEES ATLANT 3LJ 
IQUES 

746 DATA 65, TARBES, LES HAUTES PYREN HR 
EES 

750 DATA 66,PERPIGNAN,LES PYRENEES FH 
ORIENTALES 

766 DATA 67, STRASBOURG, LE BAS RHIN 206 
770 DATA 6B,COLMAR,LE HAUT RHIN >ZF 
780 DATA 49, LYON, LE RHONE JUL 
798 DATA 70, VESOUL,LA HAUTE SAONE  ?EH 
806 DATA 71,MACON,LA SAONE ET LOIRE >CK 


810 DATA 72,LE MANS,LA SARTHE XL 
820 DATA 73,CHAMBERY,LA SAVOIE IV 
830 DATA 74,ANNECY,LA HAUTE SAVOIE ?CN 


10 


846 DATA 75,PARIS, PARIS TU 
850 DATA 76,RQUEN,LA SEINE MARITIME >EM 


860 DATA 77,MELUN,LA SEINE ET MARNE >CH 
879 DATA 78, VERSAILLES, LES YVELINES ?FX 
880 DATA 79,NIORT,LES DEUX SEVRES CB 
899 DATA 80, AMIENS, LA SOMME >WD 
900 DATA 81,ALBI,LE TARN >T6 
910 DATA 82, MONTAUBAN, LE TARN ET GA >JK 
RONNE 

926 DATA 83, TOULON, LE VAR >UN 
926 DATA 84,AVIGNON,LE VAUCLUSE AT 
949 DATA 85,LA ROCHE SUR YON,LA VEN >FH 
DEE 

950 DATA 86,POITIERS,LA VIENNE >10 
960 DATA 87,LIMOGES,LA HAUTE VIENNE ?EC 


970 DATA 88,EPINAL,LES VOSGES FYN 
980 DATA 89, AUXERRE, L ‘YONNE > 
990 DATA 90, BELFORT,LE TERRITOIRE D >PJ 
E BELFORT 

1000 DATA 91,EVRY,L'ESSONE >NA 
1010 DATA 92, NANTERRE, LES HAUTS DE JT 
SEINE 

1026 DATA 93,BOBIGNY,LA SEINE SAINT KV 
DENIS 

1630 DATA 94,CRETEIL,LE VAL DE MARN Di 
E 

1646 DATA 95,EVRY,LE VAL D'OISE >UL 
1950 DIM DES (95) ,PR$ (95) >0H 
196 RESTORE 100:FOR 1=1 TO 95:READ >A 
N,PR$(I),DES (1) :NEXT 

1979 PEN 1 >FH 
1680 INK 0,13: INK i,0:INK 2,24:INK >DW 
sit 

1990 MODE 1:PAPER O:PEN 1:LOCATE 5, >RG 
19: INPUT “Regle du jeu (O/N) ":R$:I 

F UPPERS(R$)="0" THEN GOTO 3149 

1106 MODE 1:PAPER O:PEN 1:CLS XQ 
1110 LOCATE 15,3:PAPER 3:PRINT "DEP >YC 
ART ‘ OIE":PAPER © 

1120 LOCATE 2,5:LINE INPUT “Nombre >YJ 
de joueurs : ":;J$:JOUEUR=VAL (J$) 

1136 IF JOUEUR<1 OR JOUEUR>8 THEN F >BQ 
RINT CHR$(7):G0TD 1126 

1146 DIM NOMS (JOUEUR) CASE (JOUEUR) >EF 
1150 FOR I=i TO JOUEUR >0q 
1160 LOCATE 2,1+6:PRINT “Joueur":;1; >DZ 
LINE INPUT " : NOM: ":NOMS (I) : CASE 
11=0 


1176 NOMS$(I)=LEFTS (NOM$ (I), 15) >YK 
1188 NEXT I VF 
1190 RESTORE 1230 ?LR 
1209 FÜR i=i TO 369:NEXT:CLS 3x 


1219 K=3:Y=3:DIM dir$(95),xc(95),yc >6X 
(95) 

1229 ‘ confiquration du parcours  ?KH 
1239 DATA BBBBBBDDDDBBBGGEBEEGGBBED >LD 
DDDBBGGGGBBDDDDDDHHHHHHGGHHHDDHHHDD 


DDDBBBGGGBBBDDDBBGG6BBBBDDHHDDDBBDD 
1240 READ A$ >VH 
1250 FOR 1=0 TO 95 LA 
1260 IF INT(1/2)=1/2 THEN PAPER 2 E LT 
LSE PAPER 3 

1279 LOCATE X,Y:PRINT USING "##":1 CG 


1280 xc(i)=x:yc(ii=y ?PR 
1290 IF 1=0 THEN A1$="B" ELSE A1$=M LR 
ID$(A$,1,1) 

1309 IF A1$="B" THEN Y=Y+1 >TW 
1319 IF A1$="H" THEN Y=Y-1 ?TF 
1326 IF Aj$="D" THEN X=X+2 ?TZ 
1339 IF AÏ$="G" THEN K=X-2 ?TF 
1346 dir$(i)=ai$ >DF 
1350 NEXT I 3VE 
1366 DATA 156,154,154,154, 156 ?VC 
1379 DATA 149,111,32,111,149 >UU 
1386 DATA 149,111,32,111,149 - WW 
1396 DATA 149,111,32,111,149 UK 
1408 DATA 147,154,154, 154,153 VA 
1410 FAPER 0 ?1E 
1426 RESTORE 1360 LR 
1436 FOR 1=12 TO 16 LG 
1449 FOR J=2 TO à ?CE 
145% READ COD:LOCATE J,I:PRINT CHR$ >KD 
(COD) : 

1469 NEXT J >VH 
1476 NEXT I 3VH 


1480 WINDOW #1,29,26,12,26:PAPER #1 >Uk 
,2:PEN #1,1:CLS #1 
1490 WINDOW #4, 14,38B,10,10:PAPER #4 >UM 
,L'PEN #4, 0: CLS #4 


1598 ‘ 2X] 
1516 >XK 
1528 ?YÀ 
1536 +YB 
1549 FOR I=i TO JOUEUR QU 


1559 LOCATE #1,1,I+1:PRINT#{,LEFTS( >2R 
NOM$ (1),8);:LOCATE #1,9,1+1:PRINT # 
1,USING “##":CASE (I): 

1560 NEXT I ?VH 
1576 WINDOW #2,6,38,3,8:PAPER 42,3: >08 
PEN #2,1:CLS #2 

1584 ‘ >Y6 
1599 PRINT CHR$(24) ‘ inversion vid >NV 
eo 


1609 LOCATE 1,1:PRINT " BK 
DEPART 'OIE “3: PRIN 

T CHR$ (24) 

1619 WINDOW #3,3,5,13,15:PAPER #3,0 KV 
:PEN #3,1 

1626 ?ŸB 
1658 2YC 
Lg ?YD 
1656 * boucie principaie ?VE 
1669 YF 
1670 }Y6 


1680 FOR i=1 TO joueur >QZ 
1690 SI6=0 PE 
1700 IF JOU(I)=1 THEN G0TD 1940 >XU 


1710 PRINT #4,"JOUEUR COURANT: ";LEF >WP 
T$(NOM$ (13,10); 
1720 CLS #2 ?LF 
1730 PRINT #2,"A “;LEFTS (NOM$(1),10 DRM 
);" DE JOUER“ 
1740 GOSUB 2090 XXF 
1750 FOR t=1 TO SOO:NEXT t >TU 
1760 PRINT#2,"LE DE DONNE “;de;"." )CK 
1770 FOR t=1 TO 3G0:NEXT t TU 
1780 mvt=de:G0SUB 2269: IF SIG=1 THE >HW 
N 2850 
1790 FOR t=i TO 1969:NEXT >TD 
1800 CLS #2 )LE 
1810 PRINT #2,"QUEL EST LE DEPARTEM ?CE 
ENT No “scase(i);"?" 
1829 LINE INPUT #2,rep$:rep#=UPPER$ >KZ 
(rep$) 
1830 IF UPPERS (REP$)="ABANDON* THEN >UN 
JOU(T)=1:LOCATE #1,9,I+1:PRINT #1, 
CHR$ (254) ; CHR$ (295) ; : AB(1) =1: NBAB=N 
BAB+1:1IF NBAB+POST=JOUEUR THEN 2960 
ELSE GOTO 1950 
1840 IF rep$=def$(case(i)) THEN 1980 >EV 
" bonne reponse 
1850 ‘  DYG 
1860 PRINT #2, "NON, IL FALLAIT REPON JE 
DRE" 


1870 PRINT #2,de$(caseli)):"  (";CA KE 
SE(1);")" 

1880 GOSUB 2820 »vB 
1899 FOR T=1 TO 3OM:NEXT T >UU 
1909 ‘ »C 


1910 PRINT#2, “Vous reculez donc de >W 
É 

1920 GOSUB 2090 
1930 mvt=de: PRINT #2,de;"case":;:IF >CX 

de>i THEN PRINT #2,"s" 


1940 GOSUB 2530 »X6 
1950 FOR t=1 TO 2HO0:NEXT t UP 
1966 NEXT i WB 
1978 GOTO 1689 ?NK 


1980 PRINT #2,"BRAVO !!! ET SA FREF NP 
ECTURE ?" 

1990 ‘ >1B 
2000 LINE INPUT #2,rep$ >RJ 
2016 IF UPPER$(REP$)=PR$(CASE(I)) T >QP 
HEN GOTO 2978 

2029 PRINT #2, "NON, “: DES (CASE (I));: >7E 
IF LEFT$(DES (CASE (1)),3)="LES" THEN 
PRINT #2," ONT "; ELSE PRINT #2," 

A": 


2630 PRINT #2,"POUR PREFECTURE “; CN 
2040 PRINT #2,PR$(case(1)) >UH 
2050 FOR T=1 TO 1000: NEXT T ?UE 
2060 GOTO 195 ?NA 


2670 PRINT #2,"Exact !!!":G0SUB 209 >AG 


0: MVT=DE:G0SUB 2268 

2080 IF SIG=1 THEN 2850 ELSE 1968 
2090 

2109 ‘-------- ]ancement du de 
2110 

2126 FOR lan=1 TO INT(RND#15)+5 
2130 de=INT (RND#6)+1 

2140 CLS #3 

2150 IF INT(de/2)<>de/2 THEN LOCATE 
#5,2,2:PRINT#3, “o"; 

2160 IF de>3 THEN LOCATE #3,1,1:PRI 
NT#3 ,'o":s 

2170 IF de>i THEN LOCATE #3,3,1:PRI 
NT#S ,'o"; 

2186 IF de>i THEN LOCATE #3,1,3:PRI 
NT#5 ,"o"; 

2190 IF de>3 THEN LOCATE #3,3,3:PRI 
NT#3 ,"o"; 

2200 IF de=b THEN LOCATE #3,1,2:PRI 
NT#3., “o 0"; 

2216 SOUND 1,de*109,5,3 

2226 NEXT lan 


2270 ‘--—----- deplacement sur l'ec 
hiquier 

2280 ‘ 

2299 ‘ deplacement positif 

23% ‘ 

231% PEN 1 

2320 FOR av=case(i) TO case(i)+mvt 
2330 IF AV>95 THEN SIG=1:60T0 2438 

2340 PAPER 1:PEN 9 

2350 LOCATE xc(av),yc (av) 

2360 PRINT USING "##";av 

2370 IF AV>CASE(I) THEN SOUND 2,109 

9,10,3 

2389 FOR t=i TO 596: NEXT t 

2390 PEN 1 

2409 LOCATE xciav),yc (av) 

2410 IF INT(av/2)=av/2 THEN PAPER 2 
ELSE PAPER 3 

2426 PRINT USING “##"s;av 

2436 NEXT av:IF SIG=1 THEN RETURN 
244ÿ LOCATE xc(av-1),yc(av-i} 

2456 PAPER 1:PEN O:PRINT USING "##" 
sav-i 

2460 case(i}=case(i)+mvt 

2476 FOR CL=1 TO JOUEUR 

2480 LOCATE #1,9,I+1:PRINT#I, "--": 


2498 FOR t=1 TO 19:NEXT t 

2506 LOCATE #1,9,1+1:PRINT#1, USING 
“#f:case(1): 

2516 NEXT c] 

252% RETURN 

2530 


>YP 
?YD 
XF 
?\6 
>YH 
PL 
LD 
?1E 


?LN 


LP 


?LA 


LM 


?NG 


?QP 
NC 
FA 
YA 
YB 
2YC 
?YD 


?YE 
YF 
>XH 
?FF 
?CK 
AF 
?LF 
>UA 
?TF 
GA 


?TU 
>6D 
>UW 
>PI 


?TC 
?BE 
>XY 
?6L 


UD 
RM 
BA 


?TM 
RH 


2540 ‘ deplacement negatif >YD 
2550 IF case(i)}-avt{ô THEN avt=case >6P 
(i) 

2560 PEN 1 

2579 FOR re=case(i) TO case(i)-mvt 
STEP -1 

2580 PAPER 1:PEN 9 >MD 


?6C 
JR 


259% LOCATE xcire),yc(re) >U6 
2600 PRINT USING “#";re ?TC 
2619 SOUND 2,2069, 10,3 PK 
2620 FOR t=i TO SO0:NEXT t ?TQ 
2630 PEN 1 >GA 


2649 IF INT(re/2)=re/2 THEN PAPER 2 PE 
ELSE PAPER 3 


2650 LOCATE xc(re},ycire} UD 
2668 PRINT USING “#h"ire TJ 
2670 NEXT re ?FA 
2689 LOCATE xc(RE+1),yc(RE+1) >\A 
2690 PAPER 1:PEN 6:PRINT USING “##" >G60 
sRE+I 

2706 case(i}=case(i)-mvt UC 
2710 GOTO 2476 >NA 
272% ‘ YD 
2730 ‘ ?YE 
2740 RESTORE 280û ?LY 
2750 FOR M=1 TO 24:READ N,D >UK 
2766 SOUND 1,N,D+#26, 4 PM 
2770 SOUND 2,N-2,D#29,4 >0H 
2780 SOUND 4,N+2,D+#20, 4 >0J 
2790 NEXT M:RETURN ?PA 


2806 DATA 319,1,319,1,284,2,319,2,2 >XW 
39,2,253,3,319,1,319,1,284,2,319,2, 
213,2,239,3,319,1,159,2 

2819 DATA 190, 2,239, 2,253, 2,284,2,1 QZ 
79,1,179,1,190,2,239,2,213,2,238,3, 

4 

2820 FOR M=109 TO 1009 STEP 109  >WL 
2836 SOUND 1,M,10:FOR T=1 TO 106:NE >NX 
XT T:NEXT M 


ua 


2840 RETURN >FH 
2850 LOCATE XC(95)42,YC (95) :PAPER 1 >XU 
2PEN Os PRINT #4": : 

2866 CLS #2:POST=POST+1 >TY 
2870 IF POST=1 THEN PRINT #2,N0MS(I RE 
);" A GAGNE" ELSE PRINT #2,N0MS (1); 

“ EST ARRIVE..." 

2886 LOCATE #1,9,1+1:PRINT#1,CHRS (2 DRE 
52) CHRS (253) ; 

2890 ORD(POSTi=] MN 
2900 GOSUB 2749 DE 
2910 FOR T=1 TO 40:NEXT T: >UA 


2926 IF POST=JOUEUR-NBAB THEN 2968 >CZ 
‘le jeu est termine 


2936 PRINT #2:PRINT #2, "MAIS LE JEU >XP 
N'EST PAS FINI" 

2940 JOU(I)=i LF 
2950 GOTO 1950 2NJ 
2969 PAPER 1:FEN Q:CLS ?QC 
2970 PRINT °X DEFART ‘O0 UK 
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IE x 

2980 2 PRINT HOME OH 
ÉÉPÉLE ESC CCE D 

2990 FOR 1=1 TO JOUEUR ?0E 
3600 LOCATE 2,1+3 ?LK 
3019 IF 1=1 THEN PRINT "VAINQUEUR: " AG 
TAB(20); ELSE PRINT “NUMERO ":1 TA 


B (20) ; 

3620 IF ORD(I)>0 THEN PRINT NOM$iOR >HH 
D(I)) 

3636 NEXT I VB 
3649 PRINT >VG 


3050 PRINT "HOMO UT 
ÉLÉSES SEE LESC 

3669 PRINT 3VJ 
3070 FOR I=i T0 JOUEUR:IF AB(II=1 T CH 
HEN PRINT " "sNOMS(I) TAB(Z6i "A AB 
ANDONNE “ 

3686 NEXT I #VG 
3090 PRINT EEE PF 
EEE! 
3160 PRINT:PRINT * 

R REJOUER, SINON ‘5'" 
3119 IF UPPERSCINÉEY$)="R" THEN RUN :CY 


DH 


TAPEZ ‘R° POU 


3124 IF UPPERS(INKEYS)="S" THEN END ?CT 


3130 GOTO 3116 ?LK 

3149 MODE 2:PAPER 1:PEN 6 ?TE 

3150 WINDOW 19,70,2,23:CLS:PRINT " 24 
### DEPART 0 


IE +##4" 

3166 PRINT: PRINT: PRINT ?UM 

3170 PRINT “'DEPART'OIE permet une >WQ 
approche plus ludique de l'apprent 
is-sage des 95 departements francai 

5, Les joueurs, de 1 a 8, de-vront 

parcourir les 95 cases du parcours, 

le premier arrive e-tant declare va 
inqueur. “ 

3186 PRINT:FRINT 3MV 

3196 PRINT “le tour de jeu de chaqu >GF 
e joueur se decompose ainsi :" 

3209 PRINT VE 
219 PRINT "Un lancer de de determi >5Y 

ne le nombre de cases dont le joueu 
r peut avancer.L'ordinateur lui de 
mande alors Le nom du depar- tement 
de sa case d'arrivee.Le joueur doi 
t repondre sans om- mettre l'articl 
e mais en oubliant d'eventuels tire 
ts." 

3226 PRINT:PRINT "Fressez une touch 
e SVP...":CALL $BBIB:CLS 

3236 PRINT: PRINT >M0 
3249 PRINT "Si ia reponse est mauva ?UK 
ise, le joueur doit reculer d'un ce 

r- tain nombre de cases, determine 
aleatoirement." 

3256 PRINT 3VK 
3266 PRINT "Si la reponse est bonne :GF 
, l'ordinateur lui demande alors d 


?PC 


e citer la prefecture du departeme 

nt. En cas de bonne reponse le jou 

eur avance de quelques cases, sinon 

il reste sur place et passe son to 
ur,“ 

3279 PRINT:FRINT 2MV 
3286 PRINT " Ces phases de recul € >EJ 
onsecutives a un echec permettent a 

u joueur sortant du parcours d'a 
voir acquis des connaissan- ces. D 

e plus l'ordinateur corrige toutes 

les erreurs," 

3296 PRINT >WD 
3366 PRINT “ Un joueur desirant ab >00 
andonner tapera ABANDON une fois 50 

n tour arrive. À la fin du jeu,l'o 
rdinateur publie un tableau de cla 
ssement. .." 

3310 WHILE INKEYS$<5"":WEND:PRINT:FR :7E 
INT ‘pressez une touche SVP":CALL & 
BBi8:60T0 1106 

3326 ERAGE DIR$, XC, YC:END ?V] 
3336 SYMBOL 254,0,849,870,&49,&46,k :KK 
7F,847F,%40 

3549 SYMBOL 255,9,6,4F 0, 8A, LG, FE, >FD 
FE, 42 

33506 SYMBOL 252,0, 4A,29,2A,89,%A,%8 >DQ 
,.:8 

3566 SYMBOL 253,0,24A8,254, LAB, 854,8 CI 
äB 

3379 RETURN F5 





TRAIT-STAT 777 


Henri MATHIS 


Ce programme est un logiciel de traitement de données statistiques. 
Il peut fonctionner aussi bien sur une variable que sur deux. 
La représentation graphique des données est effectuée 


- Fonctionnement 
du logiciel sur une variable 


Après avoir sélectionné l'option 6 
(entrée des données : 1 au mini- 
mum), un éventail de cinq possibili- 
tés s'offrent à vous : 


— diagramme en bâton ; 
— graphe ; 

— histogramme ; 
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par les options I à 4. 


— diagramme en camembert 

— tableau des calculs. 

Pour les trois premières options, 
l'abscisse des axes représentera le 
numéro d'ordre successif de la don- 
née "affichée", l'ordonnée repré- 
sentera le pourcentage de la don- 
née étudiée par rapport à la somme 
(en valeur absolue) globale des 
données. 

La quatrième option est une repré- 


sentation par tranche des différents 
pourcentages sur un camembert (A 
utiliser avec modération pour un 
nombre limité de données : pas 
plus de 50). 

La cinquième option est un récapi- 
tulatif des calculs statistiques classi- 
ques comprenant : 
— effectifs ; 4 
— effectifs cumulés ; 

- fréquence ; 








— fréquence cumulée ; 

— moyenne ; 

— variance ; 

— écart-type. 

Un nombre illimité de données peu- 
vent être traitées. Ce nombre est 
conditionné par la dimension des 
variables indicées à la ligne 520. La 
représentation graphique est effec- 
tuée par tableaux successifs de 12 
éléments (les indications concer- 
nant le numéro du tableau sont ins- 
crites en haut à droite de l'écran). 


- Fonctionnement 
du logiciel sur deux variables 


Pour les trois premières options, 
l'axe des abscisses représente la va- 
leur du caractère, l'axe des ordon- 
nées : l'effectif (avec pour extré- 
mum la plus "grande" donnée en 
valeur absolue). 

La quatrième option est similaire au 
fonctionnement sur une variable. 
Cependant, le pourcentage est cal- 
culé uniquement sur l'effectif. 


Sur deux variables, lors de l'entrée 
des données, on a la possibilité de 
sélectionner la variable des abscis- 
ses : 1 ou 2 au choix. 


LEONE FA 
2 ‘# TRAITEMENT STATISTIQUE + FE 
3 ‘+ PAR MATHIS H # FC 
À RENAN FD 
19 MODE 2 ?BE 
20 LOCATE 39,2:PRINT “TRAITEMENT ST >TT 


ATISTIQUE" 


36 LOCATE 36,3: PRINT attiré JN 

RE 

46 LOCATE 15,7:PRINT "i-Diagramme e :TH 

n baton" 

96 LOCATE 15,9:PRINT “3-Graphe' ?EA 

6 LOCATE 15,11:PRINT "3-Histogramm EC 

e" 

76 LOCATE 15,13:PRINT "4-Diagramme AD 

en camembert" 

8% LOCATE 15,15:PRINT "5-Tableau de >WR 

s calculs" 

98 LOCATE i5,17:FRINT “é-Entries de :XR 

s donnies" 

199 LOCATE 5,24:PRINT "Nota:âpres c :Kü 

haque tableau presser une touche" 

114 LOCATE 5,23: INFUT "CHOIX (i-6i :5Â 

“sCH 

120 IF (CH£1 OR CH>6) THEN LOCATE 1 ?EA 

7,23:PRINT ‘ “:GOTO 119 

130 IF CH<>6 AND DONNEE=0 THEN LOCA :TH 

TE 37,17:PRINT "->Pas de donnees 2?" 

:CH=9:G60T0 129 

149 CLS TK 

156 REM DONNEES FIXES 04 

166 DONNEE i=DONNEE : DONNEEZ=DONNEE:E AW 

IR=0: RO=0: CMPV=: POS IT ION=6: NUM=1 

174 ON CH GOSUE 206,306, 496,6006,76 >FU 

06,500 

186 CALL 8BBô6 2ME 
[- 190 GOTO iù >RH 

260 REM BATON PF 

219 LOCATE 28,1:FRINT "DIAGRAMME EN >MF 

BATON" 

220 LOCATE 28,2: PRINT "tente GL 

#6" 

250 GOSUE 2060 ?NJ 

249 RETURN ?IB 

360 REM GRAPHIQUE 2MC 

314 LOCATE 31,1:PRINT "GRAPHIQUE"  >CG 


328 LOCATE 31,2: PRINT fttttnte" 
3356 GOSUB 2609 

344 RETURN 

406 REM HISTOGRAMME 


4iè LOCATE 31.1: PRINT "HISTOGRAMME" 


429 LOCATE 31,2: PRINT “atétttees" 


430 GOSUB 2600 

440 RETURN 

306 REM DONNEES 

919 CLEAR 

326 DIM A(264):DIM B(268) 


AT 


FA 


S43 ORIGIN 6,9:DRAWR 6,391: DRAWR 635 %EY 


9,6: DRAWR 0,-391:DRAWR -6:9,6 

554 ORIGIN 4,336: DRAM 629, 6: ORIGIN 
0,260: DRAN 639,4 

566 FOR FOUR=213 TO 639 STEF 215 
970 ORIGIN POUR, Sé6: :DRAW 4,76 

586 NEXT FOUR 

990 DRIGIN 426,336: DRAW 6,61 

669 LOCATE 16,2: PRINT fins 
EEE 

&ib LOCATE 16,3: PRINT 
S DONNEES +#" 

b24 LOCATE 16,4: PRINT 
EEE 

b30 LOCATE 958.2: PRINT 
ariable *" 


b4ÿ LOCATE 61,3: INPUT “(1 OÙ 2j: V. 


ARI 


656 IF VARI=1 OR VARI=2 THEN ELSE L ; 


OCATE 79,3: PRINT ‘ ":GOTO 638 


&b% LOCATE 5,6:PRINT "Nom de la var 


iable i" 


676 LOCATE G,7:PRINT “(4 lettres ma *k 


x)" 

684 LOCATE 11,8: INPUT "-",VAi$ 

696 IF LEN(VAÏ$)>4 THEN LOCATE 13,8 
#PRINT " “:G0T0 68ÿ 
766 IF VARI=I THEN 786 

719 LOCATE 31,6:PRINT "Nom de la va 
riable 2" 
72ÿ LOCATE 
ax)" 


736 LOCATE 37,8: INFUT “-2",VA3$ 


74% IF LEN(VA2$)>4 THEN LOCATE 39,8 : 


PRINT * “:60TO 734 


756 LOCATE 57,6:FRINT "Variable des : 


abscisses" 


76ë LOCATE 62,7: INPUT "(1 OÙ 2)"; VA 


EC 


770 IF VABC=2 OR VABC=1 THEN ELSE L } 


OCATE 71,7:PRINT " “:G0T0 760 


784 LOCATE 5,19:PRINT "Entrer 1E37 
pour finir" 
790 GOSUB 1996:G0SUB 1156 


“+ ENTRÉES DE : 


RE 


“Combien de v : 


De 
[us 


:HA 


PLY 


ns) 
& 


34,7:PRINT "(4 lettres m :LK 


800 REM ENTREES ?LZ 
816 DONNEE=1:PIL=1:STG=-1 VE 
820 LOCATE 16,13+PIL:PRINT DONNEE  >CF 


830 LOCATE 29,13+PIL: INPUT “", A(DO >HZ 
NNEE) 

840 IF A(DONNEE)=1E+37 THEN DONNEE= :>X7 
DONNEE-1:G0T0 900 


856 IF VARI=1 THEN 870 >PV 
86û LOCATE 52,13+PIL: INPUT "",B(DON >HP 
NEE) 

876 DONNEE=DONNEE +1 :PIL=PIL+1 ?1C 
880 IF PIL>11 THEN PIL=1:CALL 30006 NF 
:GOSUB 1990 

890 GOTO 820 >AD 
900 PNI=A(1) :PN3=PNI PM 
910 PN2=B(1}:PN4=PN2 PT 
929 FOR TEQ=1 TO DONNEE >RY 
930 IF VABC=1 THEN DRES=DRES+ABS(B( :EZ 
TEQ)):DRESI=DRES1+B(TEQ) ELSE DRES= 
DRES+ABS (A (TEQ) } : DRES1=DRES1+A(TEQ) 

940 IF ACTEQ)<PN3 THEN PN3=ACTEQ)  >BM 
950 IF ACTED)>PNI THEN PNI=ACTEN) EL 


969 IF VABC=2 AND A(TEQ)>9 THEN STG >DD 
=ÿ 


976 IF VARI=i THEN 1924 QD 
98% IF B(TEQ)<PN4 THEN PN4=B(TEU)  :EW 
996 IF VABC=1 AND B(TEG)>6 THEN STG >D6 
=ÿ 

1900 IF B(TEU):PN2 THEN PN2=B(TEQ) BL 
1916 NEXT TEQ >PD 
1929 IF ABS(PN4)>PNZ THEN PNZ=ABS(F FC 
N4) 

1959 IF ABS(PN3)>PN1 THEN PNI=ABS(P >F7 
NS) 

1649 IF PN1£6 THEN PNI=PNS >UU 
1956 IF PN2€0 THEN PNZ=PN4 >UY 
1960 GOSUB 1500 WF 
1676 IF VARI=i THEN DRES-FREQ :YQ 
198 GOTO 196 FE 
1990 REM FOURTOUR DONNEES ?WD 
1106 ORIGIN 109,19:DRAWR 0,220: DRAW >PV 
R 446,0:DRAWR 9,-220:DRAWR -449,6 

1119 ORIGIN 109,260: DRAW 44,0 >XP 
1120 ORIGIN 169,19:DRAW 9,226: 0RIGI >XN 
N 360,19: DRAW 9,229 

1136 LOCATE 15,12:PRINT "Donntes":L >CE 
OCATE 28,12:FRINT "Variable noi":LD 
CATE 51,12:PRINT "Variable no2" 

1149 RETURN ?EK 
1150 REM ROUTINE EFFACEMENT >XW 
1160 FOR MACH=30000 TO 30612 UF 
1176 READ K 3RB 
1186 POKE MACH,K LD 
1199 NEXT MACH ?XD 
1209 DATA &3E,0,421,11,13,%11,23,68 5UF 
SCD, 444, REC, &C9, 80 

1219 RESTORE 2NH 
1229 RETURN 3EJ 
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1500 REM FRÉQUENCE ?NH 
1510 FOR FR=1 TO DONNEE RE 
1920 FREQI=FREQL+ABS (A(FR) ):FREQ2=F >DY 
REQ2+ABS (A(FR) *B (FR) } 

1530 NEXT FR:IF VARI=1 THEN FREG=FR AR 
EQi ELSE FREG=FREN2 


1549 RETURN >FD 
2009 REM DESSIN REPERE >RE 
2910 REM DRDONNEES ?NW 
2036 ORIGIN 30,3 ?LL 
2649 IF DONNEE>12 THEN TRACI=12 EL >VG6 
SE TRACI=DONNEE 1 

2650 IF VARI=1 THEN GR1=35: INCR=1:C NA 
0=32 ELSE GR1=195: INCR=-5: CO=0 

206 DROIH=460: TRAC=19: PAG2=32 IR 
2676 IF VARI=1 THEN LOCATE 6,24:PRI AJ 
NT “O":DRAW DROIH,4 ELSE ORIGIN 36, 
195:DRAW DROIH,6:LOCATE 6, 14: PRINT 

"0" 

2680 ORIGIN 56,15:DRAWR 0,375 WA 
2090 TAG:MOVER -3,6:PRINT CHR$(244) MM 
; : TAGOFF 

2109 IF VARI=1 THEN LOCATE 5,1:PRIN >MH 


T CHR$(37) 

2119 IF VARI=2 THEN LOCATE 3,1:1F >UB 
VABC=2 THEN PRINT VAI$ ELSE PRINT V 
A2$ 


2126 FOR TI=C0 TO 346 STEF FASZ YA 
2136 ORIGIN 43,35+TI:DRAW 14,6 ?XM 
2149 ORIGIN 15,46+TI ?NC 
2156 TAG:IF VARI=2 THEN PRINT STR$I >QY 
INCR): ELSE PRINT STR$(INCR#10) : 

2160 TAGOFF BE 
2176 INCR=INCR+I LU 
2180 NEXT TI FC 
2190 IF VARI=2 THEN TRAC=5 UP 
2204 REM ABCISSES >MG 
2226 INCR=65:PAS=410/TRACI ?WC 
2239 IF VARI=1 THEN 51=34:62=23%:0RD >QT 
0=35 ELSE 51=199:52=188: 0RDO=196 

2246 FOR TI=FAS TO 419 STEP INT(PAS DR 
} 

2250 ORIGIN 56+TI,S1:DRAW 0,-7 3YJ 
2266 ORIGIN 46+T1,52:TAG:PRINT CHR$ >WZ 
CINCR) ; : TAGOFF 

2276 INCR=INCR+I LV 
2280 NEXT TI FD 
2306 REM NOM DES ABSCISSES 2N 
2310 ORIGIN 499,S1+4:TAG:PRINT CHR$ JN 
(246); 

2320 IF VABC=2 THEN NOM$=VA2$ ELSE LD 
NOM$=VA1$ 

2336 IF VARI=1 THEN NOM$=VAI$ ?XT 
2546 MOVER -25,-16:FPRINT NOM$:: TAGO 2FJ 
FF 

2356 REM ROUTINE SELECTION B/G6/H BJ 
2360 REM HIHI UM 
2376 FASI=PAS +16 
2380 FÜR CO=1 TO TRACI dl 


2390 MEMA=10+ABSC : MEMV=ORDO+REFL 
2490 IF VARI=1 THEN H=ABS(A(CO+RO) / 
DRES)*11.5:G0T0 2439 

2410 IF VABC=2 THEN MEM=A(CO+RO) :AU 
X=PNI ELSE MEM=B (CO+RO) : AUX=PN2 


CG 
IT 


RD 


2420 H=(5.65#MEM) /AUX >PE 
2430 ABSC=40+PASI MM 
2449 REFL=28#H >WA 


245% IF CH=3 THEN GOSUB 5600:G0T0 2 >DE 


470 


2466 IF CH=i THEN GOSUB 3600 ELSE G >JF 
OSUB 4900 

2479 PASI=PASI+PAS ?NM 
2486 DONNEE2=DONNEE2-1: IF DONNEE2=0 F2 

THEN TRACI=DONNEE 1 : KIR=0: IND=6: GOT 

0 2519 ; 
2496 NEXT CO >EF 
25009 REM HE >WH 
2516 REM ROUTINE AFFICHAGE EXTREMUM :FD 


253 IF VARI=I THEN LIS=1:TRAC=TRAC >0M 
i:G0T0 2626 

2549 REM Donnies des ordonnies 

2556 FOR LIS=1 TD TRAC 

2560 LOCATE 66,1+LIS:PRINT STR$(LIS 
jo"-te 

2576 IF STG=0 AND VABC=1 THEN PRINT >DF 
STR$(PN2#LIS/TRAC) :PF=1 ELSE IF ST 
6=0 THEN PRINT STR$(PNixLIS/TRAC) :P 
F=i 

2580 IF (VABC=2 AND (PNI:9 OR PN3<0 
)) OR (VABC=1 AND (PNZ<6 OR PN446)) 
THEN LOCATE 65,6+#LIS:PRINT “ ":STR 
$C-LIS)s":"e:PF=2:1IF VABC=1 THEN PR 
INT STR$(-ABS (PN24LIS/TRAC)) ELSE P 
RINT STR$(-ABS (FNI#LIS/TRAC) } 

2396 NEXT LIS 

2606 LIS=LIS-1 ÿ1k 


KT 


2619 REM Donntes des abscisses AN 
2628 FOR LISA=1 TO TRACI ?TE 
2639 LOCATE 67.1+PF#4LIS+LISA:PRINT >2E 
CHR$ (b4+L ISA) :"-"; 

2640 IF VARI=1 THEN PRINT USING "# >YH 


#4. #2 ABS (A (LISA+RO) /FREG) +106: :PRI 

NT CHR$(37):G60T0 266ÿ 

2650 IF VABC=1 THEN PRINT STR$ (ALI >VG 
SA+RO)) ELSE PRINT STR$(B(LISA+RO) ) 


26b% NEXT LISA 

267% REM Dessin du cadre des donnte 
s 

2688 ORIGIN 516,4: DRAW 6,406: ORIGIN 
916,0:DRAW 128,9:0RIGIN 510,399: DR 

AW 128,9: ORIGIN 639,9:DRAW 6, 400 
2690 LOCATE 54,1:PRINT "TABLEAU"s;NU FF 

M 

2766 IF DONNEE2=0 THEN RETURN >YJ 

2710 KIR=0:DONNEEi=DONNEE 1-12: RO=RO JD 


+12 


?1C 
?EJ 


PJ 


2720 IF DONNEE1>0 THEN IND=1:TOU=i: >TQ 
NUM=NUM+1:CALL &BB06:CLS:GOTO 170 


2730 REM HHHHHHHEEHHEHER UN 
3006 REM ROUTINE DESSIN BATONS > IA 
3920 ORIGIN ABSC, ORDO >RA 


3030 GOSUB 3670:0RIGIN ABSC+15,0RDO >UG 

+15:G0SUB 3976 

3049 ORIGIN ABSC,ORDO:GOSUB 3666:0R >EC 
IGIN ABSC+29,0RDO:G60SUB 3066: ORIGIN 
ABSC, ORDO+REFL: GOSUB 3059:DRIGIN À 

BSC+20,ORDO+REFL:COSUB 3960 


3050 RETURN ?FB 
3060 FOR G=i TO 15:PLOT G,G:NEXT 6: >JH 
RETURN 

3070 DRAWR O,REFL:DRAWR 25,9: DRAWR  }JH 
0,-REFL:DRAWR -20, 6: RETURN 

3080 REM HER >UV 
4900 REM ROUTINE DESSIN GRAPHIQUE  >DN 
4020 IF TOU=1 THEN MEMA=MEMA-410 AR 


4030 IF CMPV=0 THEN ORIGIN 50,6R1:D >6V 
RAW PAS,REFL:60T0 4050 ELSE ORIGIN 
MEMA, MEMV 


4049 DRAW PAS, REFL+ORDO-MEMV #YY 
4056 CMPV=1:TOU=à 2MR 
4668 RETURN FD 
4070 REM HHHHHEEENNNNNE  UWU 


2909 REM ROUTINE DESSIN HISTOGRAMME >FP 


5020 IF KIR=0 THEN ORIGIN 50,681 EL ZX 
SE ORIGIN MEMA-1,6R1 

5630 DRAWR O,REFL:DRAMR PAS, 0: DRAUR MN 
0, -REFL 

5040 KIR=1 PB 
5054 RETURN 
5460 REM HIER TT 


6069 REM ROUTINE CAMEMBERT WG 
6616 IF DONNEE:56 THEN RETURN AL 
6629 LOCATE 28,2:PRINT “DIAGRAMME E :TH 
N CAMEMBERT" 

6939 LOCATE 28,3:PRINT “httttitttt MY 
HE" 

664% LOCATE 4,5:PRINT "DIAGRAMME"  :EQ 


69954 LOCATE 4,4: FRINT "--------- " ?1X 
6968 LOCATE 57,5:PRINT "RESULTATS" DR 
6978 LOCATE 57,6:FRINT "-------- "AM 


6689 ORIGIN 18,3:DRAW 577,0:ORIGIN >CC 
19,395: DRAW 577,0: ORIGIN 18.347: DRA 

W 577,9 

6999 ORIGIN 18,3: DRAW 6,392: ORIGIN :26 
999,3: DRAW 9,392: ORIGIN 372,3: DRAW 
9,345 


6198 ORIGIN 372,366: DRAW 233,0 2XF 
6115 REM DESSIN CERCLE FLEIN FAN 
5126 DEG:FOR CAM=6 TO 186 STEF 0.5 :2ZK 
6136 ANGLE=CAM: GOSUB 6444 UE 
6149 ORIGIN 186+L,175+H RG 
615% DRAW 9,-2#H, 1 LE 
biëé NEXT CAM ME. 


6176 REM AFFICHAGE DONNEES ET RAYON >ET 
S 

b1BO REM HIHI DIV 
4 

6196 FOR CIR=1 TO DONNE >TF 
6200 POURC=ABS (A(CIR) /DRES) +100 AY 
6216 IF VABC=1 THEN POURC=ABS(B(CI >QJ 
R)/DRES) #100 

6220 LOCATE 48+POSITION,B+VERTI:PRI ME 
NT STR$(CIR) ; "-": STR$ (ROUND (POURC) } 

3 CHR$ (37) 

6230 POSITION=POSITION+9 WU 
624 IF FOSITION=27 THEN FPOSITION=6 XD 
:VERTI=VERTI+I 


6250 DEGR=3. 6#POURC ?PE 
6260 POSI=ANG+DEGR/2 >QJ 
4270 ANG=ANG+DEGR SM] 
4286 REM AFFICHAGE RAYONS ;VD 
4296 ANGLE=POSI LP 
6300 GOSUB 6440 XF 
6319 ORIGIN 18041, 175#H: DRAM L#1.4, GE 
H#1.4 

6320 TAG:PRINT CIR: : TAGOFF HW 
4330 GOSUB 6380 »YB 
6340 NEXT CIR >PC 
6350 VERTI=0 >KC 
636Ô RETURN »FJ 
4380 L=44C0S (ANG) #16 >PQ 
4390 H=44SIN (ANG) #16 PT 
6406 ORIGIN 189,175 MT 
6416 DRAW L,H,0 ?XE 
6420 PLOT à,0,1 >UB 
6436 RETURN >F6 
6440 L=4#C0S (ANGLE) #16 >QH 
6450 H=44SIN(ANGLE) #16 :RB 
b4b@ RETURN >Fk 
760 REM ROUTINE DONNEES >UB 
7910 REM DONNEES FIXES >RM 
7020 EFFCUM=0: FRECUM=0: MOYE=0: VARIA 21] 


{=0: AUBE=DONNEE 

1636 IF DONNEE>18 THEN DOANEE1=18 E >2F 
LSE DONNEE 1=DONNEE 

7646 GOSUE 7260 : ne 
7050 FOR TRAI=1 TO DONNEEL NE 
Tô6 LOCATE 4,6+TRAI:PRINT TRAI4RO >DL 
7076 IF VARI=1 THEN LOCATE 25,6+TRA >UX 
L:PRINT ACTRAI+RO) :HAS=A (TRAI+RO) :M 
OYE=MOYE+HAG: VARTAN=VAR IAN#HAS" 2: 60 

TO 7116 : 

708 IF VABC=1 THEN LOCATE 11,6+TRA TK 
[PRINT ACTRAI4RO) ELSE LOCATE 25,4 
+TRAL:PRINT A(TRAI+RO) 

199 IF VABC=2Z THEN LOCATE 11,6+TRA ?CF 
L:PRINT B(TRAIRO) ELSE LOCATE 25,6 
+TRAL: PRINT BCTRAI+RO) 

710 IF VABC=1 THEN HAS=B(TRAI#RO): >AX 
MOYE=MOYE-+HAS#A (TRAI+RO) : VAR IAN=VAR 
IAN+HAS# (A (TRAI4RO) 2) ELSE HAG=A(T 

RAI +RO) :MOYE=MOYE-+HAS4E (TRAI#RO) : VA 


RIAN=VARIANTHAG+ (B (TRAL+RO) 2) 

7116 EFFCUM=EFFCUM+HAS 

7124 LOCATE 39,6+TRAL:PRINT EFFCUM 
7130 FREQUE=ABS (HAG/DRES) +106 

7149 LOCATE 56,6+TRAIL:PRINT USING 
#4. #4"; FREQUE 

7150 FRECUM=FRECUM+FREQUE 

7166 LOCATE 69,6+TRAI: PRINT USING 
#44. #4"; FRECUM 

7170 NEXT TRAI 

7180 AUBE=AUBE-18:RO=RO+18 

7196 IF AUBE>18 THEN CALL &BB@6:CLS 
:DONNEE1=18:60T0 7040 


720% IF AUBE}9 THEN CALL &BBOb: DONN : 


EE1=AUBE: CLS: G0TO 7840 


7216 IF VARI=I THEN AUST=DONNEE ELS ; 


E AUST=DRESI 


7220 MOYE=MOYE/AUST: VARIAN=ABS (VARI 


AN/AUST-MOYE 2) : ECART=SGR (VARIAN) 
7239 ORIGIN 196,358 

7244 TAG:PRINT MOVE; : MOVE 119,9:PRI 
NT VARIAN; :MOVE 226,0:PRINT ECART: : 
TAGOFF 

7256 RETURN 

726 REM DESSIN CADRE 


7276 ORIGIN 16,5:DRAW 6,392: DRAUR à K 


19,0: DRAUR 0,-392:DRAWR -610,4 
7286 ORIGIN 75,5:DRAW 9,355 

7299 FOR CADA=185 TO 515 STEP 119 
7306 ORIGIN CADA, 5: DRAW 6,392 
7319 NEXT CADA 

7329 DRAW 0,392 

7330 ORIGIN 16,340:DRAW 610,0 
7346 ORIGIN 16,314:DRAW 610,0 
7350 ORIGIN 185,365: DRAW 339,0 


7366 MOVE 36,22: TAG: PRINT "MOYENNE" è 


::MOVER 45,60:PRINT "VARIANCE"; : MOVE 
R 40,0:PRINT "ECART-TYPE"; : TAGOFF 


7379 LOCATE 4,2:PRINT "CALCUL STATI : 


STIQUE" 


7380 LOCATE 4,3: PRINT "tt ; 


ÉDELCS 


7396 LOCATE 68,2:PRINT "TABLEAU;NU > 


M 
7466 NUM=NUM+1 


7416 LOCATE 66,3:FRINT "Variables": : 


VARI 
7426 LOCATE 5,5:PRINT "Donnies" 


7436 LOCATE 11,5:PRINT “Val du cara ; 


€" 
744ÿ LOCATE 26,5:PRINT "Effectifs" 


745 LOCATE 59,5:PRINT "Effect cumu :k! 


1" 


748û LÜCATE 53,5:PRINT "Frequen ("s à 


CHRS (37); ")" 


7474 LOCATE é6b,5:PRINT "Fre cumu ("3 


+CHR$ (T7) 0" 
7486 RETURN 


TD 
DR 
1B 
?TE 


WT 
?TZ 
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Notre ami Alca a une tâche difjicile à remplir : en effet, 
un avion lui a parachuté quatre piles pour que son générateur 
fonctionne à nouveau. Il doit donc mettre les piles dans le générateur 
en se frayant un chemin à travers les glaçons qui jalonnent la 
banquise. Pour corser la difficulté, un horrible monstre vous 
pourchasse et cherche à vous dévorer. 


18 LA 270 MODE à 36 496 FOR i=i TO 4 :WD 
26 LB 280 >Ta 906 x=INT(RND#14i+3 >NN 
36 ‘ (ci-PIERRE LE BORGNE - LC 298 ‘-routine de test ecran - >TE 910 y=INT(RND#I9)+5 ND 
LANTERNE EE LD 306 askzi CD 526 LOCATE x,y:PEN 1:PRINT CHR$(205 >DD 
gù ?LE 310 screen=146:2$=HEX$ (@asi, 4) :POKE :LK ) 

DQ ‘==smsssssssnssssssssnsss 2LF screen, #CD:POKE screen+i, bbÿ:PDKE 3 NEXT 1 NG 
70 initialisation ----- ?LG screen+?, &BB:POFE screen+z, 432: FOKE 049 ------ generateur ----- 2RÈ 
75 DEFINT a-c,e-z MR screen+4, VAL ("R'4RIGHTS (28, 2) ) :POK 330 x=INT (RND#14)+3: v=INT (RND#19)+3 EE 
8 DIM h(iÿ) VA E screent5, VAL ("&"4LEFTS (26,2) ):FÜK 

96 DIM h$(i4) AA E screenté, 8C9 569 LOCATE x,v:CALL screen:IF aski: :PH 
199 FOR i=1 TO 1 ED 329 ‘---— couleur à zero -------- 3RF 32 THEN 556 

119 h(ij=19:h$(i)="AMSTRAD" 3VJ - 9/0 PEN Z:FRINT CHR$(Zü4) ?TE 
12 NEXT i PNB 336 INK 0,0: INK 1,0: INK 2,0:INK 3,6 2RA S80 ---- alca ?TD 
136 SYMBOL AFTER 260 FPN°:INK 4,0:INK 5,0: INK 6,0: INK 7,26:P 590 x=INT (RND#16) +2: = INT (RND421) +2 /EB 
149 SYMBOL 290,126,129,177,161,133, >MP AFER 6:BORDER 0:CLS | 

14i,129,126 ZAQ HER 5RH 660 LOCATE x,v:CALL screen: IF as4i> >PG 
156 SYMEOL 201,24,24,24,66,906, 255,2 ?GT 359 ‘#4 #4 >RJ 32 THEN 590 

39, 102 360 ‘## creation de l'ecran # 5RK 619 PEN 3:PRINT CHR$ (262) ?TY 
169 SYMEOL 292,24,56,24,44,82,41,30 >DE 370 ‘#4 #4 >TA b20 a=x:b=y ?BC 
,60 386 HEAR TE 36 GOSUB 656 HK 
178 SYMBOL 203,24,28,24,52, 74, 148,1 ?FJ 3090 ‘===========2--=---2----- >TC 640 GOTO 719 ?LE 
29, 6û 499 LOCATE 1,25:PEN 7:PRINT "TABLE >JZ 690 monstre ?TB 
189 SYMBOL 204,36,36,295, 255, 295,25 >KA U": ta 66 x=INT (RND#16)+2:v=INT (RND#21)+2 >DH 
5, 295,255 | 

198 SYMBOL 205,28,54,34,54,62,62,34 >DV 9 --———- glacon ---------- ?RF 678 LOCATE x,y:CALL screen:IF as4<} ?PM 
62 420 FÜR i=1 T0 24 >CD 32 THEN 660 

206 GOTO 1919 FA 434 FOR i=i TO 7 3WB 686 PEN S:PRINT CHR$ (201) ?T6 
219 d=0.99 >HF 440 x=INT (RND#19) +1 3NC 690 zm=32 >GK 
226 pin=2 >HB 450 LOCATE x,i:PEN 6:PRINT CHR$ (206 >DG 796 RETURN ?1C 
230 5=0 PF } 719 ‘--- bordure -—-------- >RJ 
249 point=0 ?CF 468 NEXT j ?NE 724 PEN 4 >AF 
250 ta=i NC 470 NEÏT i ?NE 730 LOCATE 1,1:PRINT STRINGS$ (29,CHR :KK 
268 pile=4 RE 480 ——————— piles -—--——- ?TC $(233)) 
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749 LOCATE 1,24:PRINT STRING$ (20,CH ?LF 
R$(233)) 

750 FOR i=1 TO 24 TK 
760 LOCATE i,1:PRINT CHR$(233): ?1E 
77 LOCATE 20,1:PRINT CHR$ (233): AJ 


78ÿ NEXT i ?PD 
794 PEN | >AK 
800 ‘--- commentaire ------ 2RJ 
819 LOCATE 1,25:PRINT "score: ":;s ?CX 
829 FOR i=1 TO pin LC 
830 LOCATE 11+1,25:PRINT CHR$ (282): >CA 
849 NEXT i FA 
845 ‘-remise des couleurs - ?TH 


850 INK 9,2: INK 1,0:INE 2,6: INK 3,9 ;EQ 
tINE 4,16: INK 9,60,12: INK 6,26: PAFER 
6: BORDER i 


CURE TE ETS EEE ECTS TE 
878 ‘+ 4 >TF 
880 ‘+ deplacement ALCA +# :1G 
890 ‘+ # >TH 
O0 HAN RE 


919 IF INKEY(47)€5-1 OR INKEY(76)< VU 
-1 THEN GOSUB 1119 


926 PEN 3 A6 
930 aa=a 3YE 
94% bb=b VJ 


956 a=a+(INKEY(8)4;-1 OR INKEY(74i< UF 
»-1i-(INKEY()£5-1 OR INKEY(75)£5-1 

} 

966 b=b+(INKEY(6)<>-1 Oh INKEY(72)< UF 
>-1)-CINKEY (2) €5-1 OR INEEY(73)€5-1 

} 

974 LOCATE a,b:CALL screen 3VN 
989 IF (as4<?32 AND as4t>201) OR (a ?TG 
=aa AND b=bb) THEN a=aa:b=bb:G60T0 Ï 

830 

990 IF aïaa THEN PRINT CHR$ (263) 10 
1900 IF aïaa THEN PRINT CHR$(202}  :1B 
1914 IF b£bb THEN LOCATE a,b:PRINT :MX 


CHR$ (262) 

1926 LOCATE aa.bb:PRINT * " 3VL 
1934 IF a=x AND b=v THEN 1604 3VL 
1646 IF RND:d THEN GOSUB 1636 3WF 
1956 GOTO 914 FE 
LOGE HEIN 3XE 
1976 ‘+ # #YA 
1986 ‘+ deplacement glacon* ?YE 
1998 ‘+ * >YC 
110 ARE 3XE 


1116 IF INKEY(G)£5-1 OR INKEY(72)<5 3LL 
-1 THEN dgx=6:dgv=-1:GOTO 1166 

1126 IF INKEY(2)<>-1 OR INKEY(733€ EF 
-1 THEN dax=ü:dgy=i:G0T0 1168 

1136 IF INKEY(8)<>-1 OR INKEY(74)<> 3L7 
-1 THEN dagx=-i:dqy=6:G0TO 1164 

1146 IF INKEY(1)<>-1 OR INKEY(75) € 2KJ 
© -1 THEN dgx=1:dgy=6: 6070 1160 

1150 RETURN FA 


1169 qx=a+dgx ?RB 
1176 gy=b+dgy 2RF 
1180 LOCATE qx,gy:CALL screen: z=as EL 


1190 IF 2€:260 AND z2>205 THEN RETU 
RN 

1206 ENT 1,16,9,1:SOUND 1,14,14,4,, >EL 
1,36 

1219 LOCATE gx+dgx,gy+dgv:CALL scre >GL 
en: 22=a54 

1226 IF 2z=264 AND z=245 THEN 1334 >2T 
1236 IF (22€332 AND 2z€:261) AND z= 3RT 
245 THEN RETURN 

1249 IF (zz<:323 AND 2z€>201) THEN L :JD 
OCATE qu,qgv: PRINT " “:RETURN 


>DQ 


La 


1250 ‘ YA 
1260 PEN ô#(z=290)-(2=245) ?TR 
1279 qx=gx+dgx DB 
1286 qy=gv+dgy >DF 


1396 LOCATE gx,gv:CALL screen: IF {a ?PN 
544232 AND ask£:241) THEN RETURN 

1308 PRINT CHR$(z) MH 
1319 LOCATE gx-dax,gy-dgv: PRINT " “ >DN 


1324 IF qx=x AND qy=y THEN GOSUB 15 :Dÿ 
49 

1536 LOCATE qx+dgx,gy+dgy:CALL scre ;FN 
en: IF as=2%4 AND 2=295 THEN 1374 
1346 IF as%=233 AND 2=245 THEN pile : 
=pile-i 


pe 
S 


1356 IF point:=piie THEN idéé ?XW 
1360 GOTO 1276 :MH 
1376 ‘-- pile placee -- 2*D 


i388 ENT i.164.-11.1:SOUND 1.194,14 :CA 
141: SOUND i,196,16,5,,1 


1396 LOCATE gx,gy: PRINT * HA 
1498 point=point+i FE 
1416 s=5+16 ?T6 
1426 LOCATE 1,25:FEN L:FRINT "score :J7 
135 

1436 IF point=4 THEN 1486 ?TL 
1449 IF point>=pile THEN 1476 FXX 
1454 RETURN FD 
1468 ‘toutes piles placees YD 


1479 IF point:=pile THEN point=:pi :VH 
le=4:6070 1520 


148û s=s+i00 AD 
1498 point=6 3KC 
1594 d=d-6.045 ED 
1914 ta=ta+i DD 
1526 GOTO 334 EE 
1539 ‘le monstre se fait avoir ?YE 


1549 ENT 2,106,-1,1:SOUND 2,166,100 EF 
12 


1550 IF 2m=205 THEN pile-pile-] ;1 
1569 IF 2m=204 THEN 326 :06 
1576 GOSUB 650 :00 
1586 s=5+i MF 


1599 LOCATE i,25:FEN 1:FRINT "score :JH 


135 

1595 PEN 6%(z=200)-(2=205) 

1664 RETURN 

1610 HEIN 
1628 ‘+ # 
1636 ‘* deplacement monstre # 
1846 ‘+ # 
1650 HAINE 
1866 ENV 1,19,1,1:SOUND 3,199,19,5, 


1 


1679 xx=x: yy=y 

1684 x=x+{xra)-(x<ai 

1696 y=y+{vbi-(vtb} 

1796 LOCATE xx.vy 

1719 PEN O#(2m=200)-(2m=205)-2# (2m 
264) 

1726 PRINT CHR$(zmi 

1736 LOCATE x,v:CALL screen: zm=ast 


1746 PEN S:PRINT CHR$ (261) 
1756 IF a=x AND b=y THEN 1566 
1766 RETURN 

1778 ‘ 

178% ‘## ALCA devore ## 

1799 


1804 ENT 2,266,1,1:SDUND i,9,169,5, : 


i8ié pin=pin-i 

1826 IF pin£i THEN 2238 
1839 CLS 

1849 point=à 

1856 GOTO 336 

1860 ‘ 

1876 HIHI 
1886 ‘# presentation # 
1890 CHAINE 
1906 

1916 MODE À 


1929 INK 9,8: INE i,26:BORDER 6:FAFE > 


R G:PEN Î:CLS 
1936 TAG 
194% FOR 1=i TO 86 


1958 PLOT 250,4646-1,1:FEN 1: FRINT'F :Y 


IERRE LE BORGNE"; 


196 MOVE 254,443-1:DRAW 400,463-1, 0 


ÿ 

1978 NEXT i 

1980 TAGOFF 

1996 LOCATE 36,9: PRINT'PRESENTE": 
2006 RESTORE 2930:FEN 1 
2619 FOR j=1 TO i4 
2020 READ x 

2636 READ a.b 

2649 MOVE a,b 

2056 FOR i=1 TD x 

2066 READ a,b 

2676 DRAW a,b.i 

2889 NEXT i 

2698 NEXT j 


#ŸE 
?EV 


>LÜ 
FE 
>PH 
>MF 
>FU 


WE 
>CA 
CF 
>RV 
LC 
>RK 
>EC 
HA 
?FE 
>EF 
V6 
VF 
> 
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2199 LOCATE 5,25:PRINT"INSTRUCTION > 
? (o/nl"s 
2118 x=1 2WF 
2126 IF INKEY(34)<5-1 THEN 2529 »XT 
2139 IF INKEY(46)£>-1 THEN GOTO 219 ?BE 
2146 GOSUB 3670 ?WK 
2159 IF «325 THEN x=1 ?NR 
2160 x=x+#1 >NA 
2179 INK i,x ?YD 
2186 GOTD 2126 >MD 
2190 ‘ 3YE 
2206 ‘$$ best score $$ :X6 
2219 ‘ 7H 
2220 2$=INKEYS:IF 2$<5"" THEN 2226 AU 
2236 FOR i=i TO 10 ?LB 
2249 IF s;h(i) THEN GOTO 2276 ELSE :GF 
NEXT i 
2250 i=0 VE 
2264 GOTO 2370 2ME 
2276 INK 0,1:INE 1,24,1: INK 3,26:FA UH 
FER O:PEN 1:MODE 
2286 LOCATE 1,1:PRINT " NOUVEAU ME ER 
ILLEUR SCORE" 
2296 LOCATE 1,16:FEN 3: INPUT " ENT AT 
REZ VOTRE NOM  ":1$ 
2306 IF LEN(z$):19 THEN 2$=LEFT$iz$ :FD 
10) 
2319 FOR j=1 TO 1+i STEP -1 UP 
2326 hijÿ=h(j-1} 2BE 
336 h$ij)=h$(j-i} :LB 
2344 NEXT j VF 
2356 hlil=s UD 
2369 h$(i)=2$ #EJ 
2370 INÉ 6,1:INK 1,24:INE 2,24,1:FA UJ 
PER G:PEN 1: MODE 1 
2384 LOCATE 1,1:PRINT "Classement d :RD 
es 16 meilleurs scores" 
2590 FOR j=i TO 19 3LE 
2469 LOCATE {-(j216),3+i:PEN 1:PFRIN 2ET 
T9 250" 
2416 IF i=j THEN FEN 3 ELSE FEN 1 VV 
2426 LOCATE 7,3+j:FRINT h(j) #WJ 
2436 LOCATE 17,3+): PRINT h$(j) #6 
2446 NEXT j 2V5 
2456 LOCATE 13.25:FEN 1: FRINT'£EARR FC 
E ESPACE: 
2474 IF INÉEY(47)£5-1 THEN 268 :W4 
2486 GOTO 2476 ME 
2499 :YH 
2566 ‘kk instruction kk 3kE 
2519 ‘ >YÀ 
2529 MODE 1:INE 6,0:INE 1,13: FAPER >2U 
1:PEN G:E0ORDER i3:CLS 
2534 LOCATE 1,1:PRINT"AZ ARALANR DE 
AR ALCA AARELMAA MAL AATRALE 
254% LOCATE 1,7:PRINT "Notre ami AL :UN 


CA a une tache dificiie a" 


2559 PRINT "remplir.En effet,sur la #E 


18 


banquise ou il" 


2566 PRINT "se trouve un avion lui EW 
a parachute" 

2576 PRINT "4 piles pour que son ge :ZB 
nerateur"“ 

2589 PRINT "d'energie puisse fancti NE 
onner a nouveau. “ 

2596 PRINT "Il doit donc mettre ces ?FD 
4 piles dans" 

2696 PRINT “son generateur.Pour pou ;RY 
voir les y mettre"; 

2616 GOSUB 3676 3XB 
2624 PRINT "il doit leurs faire un ?LE 
chemin entre les" 

2634 PRINT "qlacons qui jonchent la :]J7 
banquise.Mais" 

2648 PRINT “attention un horrible m ?RA 
onstre ne pensant"; 

2656 PRINT “qu'a le devorer le pour >VT 
suit," 

Zbb@ LOCATE 13,25:PRINT'£BARRE ESFA >JH 
CE?" 

2674 IF INKEY(47)<>-1 THEN 2760 XH 
2686 GOSUB 3670 2X] 

2696 GOTO 2670 NE 
2704 CLS:LOCATE 1,1: PRINT'AZZALALEL JH 

HRUAURL ALCA LARLAALRARARALLELE" 

2714 LOCATE S,3:PRINT CHR$ (263); "-} KE 
"4 “ALCA" 

2726 LOCATE 5,9:FRINT CHR$ (208) : "5 NC 

“4 "GLACON" 

2738 LOCATE 5,7:FRINT CHR$ (205): "-; AE 
“s"PILE:19 points" 

2744 LOCATE 5.9:PRINT CHR# (204) 5" x 

"4 "GENERATEUR" 

2756 GOSUE 3076 #X6 

276% LOCATE 5,11:FRINT CHR$(20ii:"- 3CH 

>" "MONSTRE: 1 point" 

2776 LÜCATE 3,13:PRINT ‘Four deplac >EÙ 

er ALCA utiliser le joystick" 

2788 PRINT “ou ie curseur.Four ianc ?6H 

er un glacon,“ 

279% PRINT “une pile ou casser un q ;FF 

lacon utiliser en"; 

2866 FRINT "meme temps qu'une touch F4 

e curseur la“ 

2819 PRINT "barre d'espace,ou ie j0 :DD 

ystick avec" 

2815 PRINT ‘le bouton fire." BY 

2826 GOSUB 3476 ?XE 

2836 PRINT:FRINT "Vous aurez 166 po UN 

ints de bonus a chaque" 

2835 PRINT “tabieau termine." DT 

2866 LOCATE 13,25:FRINT'EBARRE ESPA JE 

CE>" 

2876 IF INKEY(47;<:-1 THEN 2ié ?WE 

2886 GOSUB 367ù YA 

289% GOTD 2876 FD 

2986 : AI 


2918 ‘Crtr data presentation £}<; 
2926 ‘ 


2930 DATA 9,0,48,0,96, 152, 246, 216,2 > 


46, 128, 96,88, 96, 112, 128, 72, 128, 40,9 
6,,96 


2940 DATA 7,6,48, 40,48, 49,96, 49,48, : 


72,88, 72, 128, 72, BB, 88,88 


2956 DATA 6,88, 96, 88,48, 128,48, 128, 


96,128,48,216,216,216,240 


2968 DATA 4,136, 160,194, 160, 166,224 


,184,224, 136, 160 


2970 DATA 4,164, 200, 16û, 205, 160,224 > 


166,200, 128, 166 


2986 DATA 14,256,96, 264, 136,240, 136 : 


272,240, 248,246, 192,96, 192,48,256, 
48, 256,96, 256,48, 264,06, 264, 136, 256 
136,272, 192,272, 240 

2996 DATA 1,192,96, 256, 96 

3666 DATA 15,320, 96,326, 48,448, 48,4 
48,96,320,96. : 320,240, 392,240, 408,20 
0,304,20,37b,224,344,274,752, 144,4 
66,144,392,176,416,176, 448,96 

3616 DATA 2,394, 144, 372,192, 392, 176 


3626 DATA 8,408, 200, 408, 176,384, 176 > 


,384,206, 384, 176, 37b, 200, 378, 224,37 
6,200, 344, 200 


3634 DATA 6,512,96,424,246,496,246, ; 


649,96, 666, 96,576, 128, 928, 128,552,9 
6,512, 96 

3646 DATA 6,424,246,424,200,512,48, 
912,96,912,48,592,48,592, 96 

2056 DATA 8,552,84,576,84,576, 128,5 
76,80, 806,48, 600,96, 600, 48, 839,48, 6 
39,96 
30460 DATA 9 
456, 224,584, 108,512, 166,486, 206,45 
9,224, 489, 200,474, 200 
3965 musique 
3676 READ a,b 


3680 IF a=-i THEN RESTÜRE 3139: G070 


3676 

3496 SOUND i,a,b/2,5 

3196 SOUND 2,6, 5#a, b/2,5 

3116 SOUND 4,6. 25#a,b/2,5 

3126 RETURN 

3136 DATA 478,50,379,50,358,50,3 
206,0,5, 319, 58,478, 50, : a 
,319,200,0,5,319, 109 


3146 DATA 478,56,379,50,358,50,319, : 


196,379, 100,378, 100,378, 100, 426, 200 


3150 DATA 0,5,426, 50,379, 50,0,5,379 à 


,54,426, 50,378, 190,0,5,378,50 


3169 DATA 379,100,319,100,0,5, 319,5 : 


0,358, 154,0,5, 398, 109, 379, 90, 358, 50 
319,100, 379, 106 

3170 DATA 378, 100,426, 109, 478, 200,0 
,5,478,50,-1,1 


1,912, 160,544, 160, 480,224 : 


VF 


AÀ 


ER 


#HC 


 ?TH 


PE 


CULUTAIRE 


IMPRESSION SUR ENVELOPPES 


Philippe GINDRE 


Ce programme fonctionne sur tous CPC + DMP 2000. 
Comme son nom l'indique, il imprime des adresses de destinataires 
(expéditeur en option) sur des enveloppes de format réglementaire 

(115/160), mais il est très aisément adaptable à toutes sortes de 
format, par simple modification des tabulations. 





En lignes 510, 560 et 580, l'utilisa- 
teur doit, s'il veut que ses nom et 
adresse soient définitivement mé- 
morisés (pour ne pas avoir à les 
retaper à chaque fois), les intégrer 
au programme sous forme de va- 
riables. Au premier abord, cela peut 
sembler assez inélégant, mais ju- 
gez du temps que l'on perdrait à 
créer puis à appeler un fichier des- 
tiné à ne contenir au maximum que 
onze variables ! (Adresse + pays 
pour envoi à l'étranger). 

De même, il n'y a pas de fichier de 
destinataires : un particulier, sauf 
cas exceptionnel, n'aura pas à récri- 
re aux mêmes personnes suffisam- 
ment souvent pour le justifier. De 
plus, on perdrait beaucoup plus de 
temps à charger ce fichier, à le 
consulter et à demander l'impres- 
sion de telle ou telle adresse, qu'à 
tout simplement la taper (six lignes 
dans le pire des cas, trois en gé- 
néral). 


Les choix se font au fur et à mesure 
du déroulement du programme. En 
cas d'erreur lors de l'entrée des 
adresses, il est possible, lorsque 
toutes les adresses ont été en- 
trées, d'en corriger une. Certaines 
mentions sont facultatives (par 
exemple, le‘pays si l'on n'écrit pas à 


l'étranger, le lieu dit, ou le centre 
postal). Pour les omettre, il suffit de 
taper "ENTER", aucun blanc ni saut 
de ligne ne sera exécuté pour 
autant, tout sera imprimé l'un en 
dessous de l'autre. De même, si 
l'utilisateur choisit de faire apparaî- 
tre une adresse d'expéditeur, puis, 
qu'après réflexion, il préfère ne pas 
le faire, il suffit de taper "ENTER" à 
toutes les demandes. 

Avant impression, il suffit de placer 
le haut de l'enveloppe sous le ru- 
ban de l'imprimante, après avoir po- 
sitionné le guide papier gauche à 
9" et amené le guide papier droit 
contre le bord de l'enveloppe. Il est 
recommandé de régler le bouton 
"épaisseur papier" en position hau- 
te, en raison de la relative épaisseur 
de l'enveloppe. 


N.B. : le symbole "—>" de la 
ligne 2090 s'obtient par : 


CTRL+i 


ANNEE ELA 


 +# # :LE 

9 ‘© + IMPRESSION SUR ENVELOFFE +* LC 
+ Pour DMF-2606 + LL 
"+ # LE 

à ‘ + (ci 1987 Philippe GINDRE # 2LF 
+ # LG 

À AB OBOEEPHEEHPEEOHEPHEHE CLH 
#LJ 

199 DEFINT a-2 :VH 
Hi RC 
136 ‘#t#+ Azerty accentue ###4 RD 
130 RE 
149 SYMBOL AFTER 63 NG 
156 SYMBOL 64,96,48,120,12,124,304, FF 


118,6 


176 SYMBOL 92,6,6,66,102,96,102,60, >CH 
24 

189 SYMBOL 93, 66,96,66,102,69.6,60, :CC 
[) 

198 SYMBOL 1235.12,24,6,102,126,96, ?EK 
éi,4 

269 SYMBOL 124,48,24,162,162,162,16 GR 


2,62,ù 

214 SYMBOL 125.48,74,60,102,126,96, :EF 
64,6 

220 ‘ RE 
236 ‘#### Deroulement ++#4 2RF 
249 ‘ :RG 
256 INK 6,6: BORDER 6:MODE Z:CLS >YE 
Zbÿ FLOT 5,9:DRAW 635,5 :QN 
270 DRAW 635,395 ?CB 
28% DRAW 5,395 2MG 
298 DRAW 5,5 ?YC 
3606 WINDOW 2,79,2,24 >NQ 


316 LOCATE 25,4:PRINT"#X IMPRESSION >HB 
SUR ENVELOPPES X#":LOCATE 27, 16:PR 
INT"(c) 1987 Philippe GINDRE":FOR N 

19 


=i TO 2969:NEXT 

320 LOCATE 25,4:PRINT'#X IMPRESSION FH 
SUR. ENVELOPPES X#'":PRINT CHR$(7):L 
OCATE 21,16:PRINT'"Voulez-vous faire 
fiqurer une adresse":LOCATE 21,13: 
PRINT"d'expiditeur sur l'enveloppe 
{O-N> 7" 

330 a$=INKEYS:IF a$="" THEN 330 >XU 
344 IF a$="o" OR a$="O" THEN 376  >WD 
350 IF a$="n" OR a$="N" THEN CL5:60 >JV 
SUB 1126:G0SUE 1266:GOSUB 1156:60SU 

B 1266:G0SUB 1150:G0SUB 1369: G0SUB 
1156:60SUB 1326: G0SUB 1150:G0SUB 13 
46:GO0SUB 1150:60SUB 13660:G60SUB 1390 
:60SUB 1829:G0T0 436 

360 GOTO 330 ?IB 
374 CLS:LOCATE 25,4:PRINT"'#X IMPRES CA 
SION SUR ENVELOFPES Xx":LOCATE 23.1 
9:PRINT"Voulez-vous choisir une des 
adresses":LOCATE 22,12:FRINT"  d° 
expiditeur en mimoire <O0-N> ?":PRIN 

T CHR (7) 

389 b$=INKEYS:IF b$="0" OR b$="o" T :EQ 
HEN GOSUB 310:CLS:G0T0 42ÿ 

396 IF b$="N" OR b$="n" THEN G0TO 4 >BD 
14 

464 GOTO 389 
410 GOSUB 646:G60SUB 770:GO0SUB 650:5 >ZÙ 

OSUB 796:60SUB 650:G0SUB 819:G60SUB 
656:GO0SUB 836:GO0SUB 656:G0SUB 856:5 

OSUB 654:G60SUB 870:60SUB 960: CL5:60 
T0 42ÿ 

426 CLS:GOSUB 1126:60SUB 1260: GOSUB 
1156:G0SUB 1286:G60SUB 1158:G0SUB 1 

360:G60SUB 1159:G60SUB 1320: G0SUB 115 
6:GOSUB 1349:GO0SUB 1150:60SUB 1360: 

GOSUB 1390:G0SUB 161%:G60SUB 1844 

36 GOSUB 2016:CLS:FOR n=i TO 906:N >PY 

EXT n:LOCATE 22,4:PRINT'# IMPRESSIO 

N SUR ENVELOPPES +*":PRINT CHR$(7):L 

OCATE i7,16:PRINT"Voulez-vous impri 

fer une autre adresse?" 

449 cé=INKEYS: IF c$="" THEN 449 ?XC 
456 IF c$="0" OR c$="o" THEN CLS: 6 >FD 

OTO 326 

466 IF c$="N" OR c$="n" THEN MODE 1 >XP 
:INE 9,1: BORDER 1:END 


FT 


La 


470 GOTO 446 >2F 
489 ‘ TC 
490 ‘#### adresses d'expediteur en >TD 


memoire #### 

360 ‘ 2RF 
919 CLS:LOCATE 22,4: PRINT'#X Choix 
de l'adresse d'expiditeur X+":PRINT 
CHR$ (7) :LOCATE 27,9:FRINT"i) Frtno 
m NOM":LOCATE 27,11: FRINT"2) Prinom 
NOM + Pays" 

920 ch$=INKEYS:IF ch$="" THEN 520 ZE 
930 IF ch$="i" THEN GOSUE 560:RETUR >DZ 
20 


N 

549 IF ch$="2" THEN GOSUB 580:RETUR >DD 
N 

990 GOTO 524 >1D 
960 nmxp$="M. Prinom NOM de l'expid >RB 
iteur“:adxp$="adresse de l'expidite 
ur":cdxp$="Code Postal Ville" 

9764 RETURN ?IH 
989 nmxp$="M. Prinom NOM de L'exptd ;CK 
iteur":adxp$="adresse de l'expidite 
ur“:cdxp$="Code Postal Ville":pxp#$= 
“Pays de l'exptditeur" 


996 RETURN ik 
660 GOTO 520 2YK 
big : FH 


62% ‘#### tableau de selection de 1 >RJ 
“expediteur ###4# 


636 ?RK 
640 CLS ?UE 
654 LOCATE 24,4:PRINT'4X Selection ?KW 


de l'expiditeur X+" 

6bà LOCATE 1,8: PRINT" 
a de l'expiditeur : " 
67à LOCATE 1,1%: PRINT" 


li Nom Freno ;LL 


2} Lieu dit :JF 
684 LOCATE 1,12:PRINT" 
true : “ 

698 LOCATE 1, 14:PRINT" 
tal ET ville : “ 

709 LOCATE 1,16: PRINT" 
ostal (facultatif) : “ 
719 LOCATE 1,18: FRINT" 


3) Numiro e RU 
4) Code pos >E4 
5) Centre p >MK 
6) Pays : “ DJ 
726 LOCATE 1,26: PRINT" >CL 


730 RETURN 
749 ‘ ?TE 
750 ‘x### selection de l'expediteur >TC 
HE 

760 ?TD 
776 LOCATE 1,8:FRINT CHR$(243):FRIN >RM 
T CHR$(7):LOCATE 3,B:LINE INPUT'i) 

XNon Frenom de l'expiditeurX : ‘“,nm 

xp$ 

784 RETURN +Aâ 
790 LOCATE 1,16:PRINT CHR$(245):PRI >DW 
NT CHR$(7):LOCATE 3,19:LINE INFUT"2 

) XLieu ditX : ",lxp$ 

899 RETURN ID 
816 LOCATE 1,12:PRINT CHR$(243):FRI TH 
NT CHR$(7):LOCATE 3,12:LINE INPUT“3 

} ANumtro et rueX : “,adxp$ 

829 RETURN >1F 
830 LOCATE 1,14:PRINT CHR$ (243) :PRI FE 

NT CHR$(7):LOCATE 3,14: LINE INPUT"4 

) XCode postal ET villeX : ",cdxp$ 

849 RETURN ?IH 
850 LOCATE 1,16:PRINT CHR$(243):PRI >VL 

NT CHR$(7):LOCATE 3,16: LINE INPUT'S 





} JCentre postal (facultatifiX : *. 
cpxp$ 
860 RETURN ÿE 
876 LOCATE j,18:PRINT CHR$(243):PRI >X0 
NT CHR$(7):LOCATE 5,18:LINE INFUT'é 
} XPaysX : ",pxp$ 
880 RETURN FAË 
89% ‘ 
966 ‘###* erreur dans l'expediteur >RK 
#4 
916 
920 GOSUB 659:LOCATE 1,20:PRINT CHR :VY 
$(243) :LOCATE 3,20: PRINT'XAvez-vous 
fait une erreur £0-N> ?X":PRINT CH 
R#(7) 
930 dé=INKEYS$: IF d$="" THEN 936 #XN 
940 IF d$="o" OR d$="0" THEN 979 >XP 
956 IF d$="n" OR d$="N" THEN RETURN EM 


9é6 G0TO 938 AD 

976 GOSUB 656:LOCATE 1,20:PRINT CHR >AF 
$(243) :LOCATE 3,29:PRINT'XU: est ce 

tte erreur ? (1,2,3,4,5 ou 6)X":PRI 

NT CHR$ (7) 

980 a$=INKEY$: IF e$="" THEN 9Bù #XB 
990 IF e$="i" THEN GOSUE 650:G0SUB :BF 
770:G0SUB 650:G0T0 1060 

1900 IF e$="2" THEN GOSUB 630: GO0SUE >B* 
796:60SUB 656:60T0 1060 

1916 IF e$="3" THEN GOSUB 65: GOSUB >BT 
819:G0SUB 650:60T0 1960 

1926 IF e$="4" THEN GOSUB 656:GO0SUB :BX 
830:60SUB 650:G0T0 146 

1636 IF e+="5" THEN GOSUB 656: GO0SUB :BB 
850:60SUB 650:60T0 1660 

1946 IF e$="6" THEN GOSUB 65%: GO0SUB >BF 
870:60SUB 650:607T0 1068 

1950 GOTO 986 #FJ 
1966 GOSUB 656:LOCATE 1,26:PRINT CH >TQ 
R$ (243) :LOCATE 3,20: FRINT"XAvez-vou 

s fait une autre erreur <0-N: 7x 

PRINT CHR$ (7) 


1670 F$=INKEYS:IF f$="" THEN 1070 ZM 
1989 IF t$="o" DR #$="0" THEN GOTO CA 
970 

1996 IF #$="n" OR f$="N" THEN RETUR 3CN 
N 

1196 GOTO 1876 ?LH 
1119 RETURN EG 
1128 ?XG 


1136 ‘#xk4 tableau de selection du :XH 
destinataire *### 

1140 ?XJ] 
1196 LOCATE 22,4:PRINT"'#X Choix de :AW 
l'adresse du destinataire X+*" 

1166 LOCATE 1.8:PRINT" ji Nom Fren :MA 
om du destinataire : " 

1176 LOCATE 1,16: PRINT" 
te 


2) Lieu di KV 


1189 LOCATE 1,12:PBINT" 3) Numtro 
et rue : “ 

1199 LOCATE 1,14: PRINT" 
stal ET ville : “ 

1260 LOCATE 1,16: PRINT" 
postal(facultatif) : " 
1219 LOCATE 1,18:PRINT" 


u 


1226 LOCATE 1,26: PRINT" 


5) Centre 


b) Pays : 


1239 RETURN 
1249 ‘#### selection du 
8 #### 

1250 ‘ 

1260 LOCATE 1,8:PRINT CHR$i243):FRI 

NT CHR$(7):LOCATE Z,8:LINE INPUT" Î 
} XNom Prenom du destinataireX : ", 

nnd$ | 

1270 RETURN 

1280 LOCATE 1,19:PRINT CHR$ (243) :FR 
INT CHR$(7):LOCATE 3,10:LINE INPUT" 
2) XLieu ditX : ",ld$ 

1290 RETURN 

1306 LOCATE 1,12:PRINT CHR$ (243) :PR 
INT CHR$(7):LOCATE 2,12:LINE INPUT" 
3) XNuntro et rueX : “,add$ 

1319 RETURN 

1326 LOCATE 1,14:PRINT CHR$(243):PR 
INT CHR$(7):LOCATE 2,14:LINE INPUT" 
4) XCode postai ET villeX : “,cdd$ 


1330 RETURN 

1349 LOCATE 1,16:PRINT CHR$ (243) :PR 
INT CHR$(7):LOCATE 3,16:LINE INPUT" 
5) XCentre postal(facultatif)X : " 
cpd$ 

1350 RETURN 


1369 LOCATE 1,18:PRINT CHR$(Z43):FR 


INT CHR$(7):LOCATE 2,1B8:LINE INPUT" 
6) XFaysX : ",pd$ 

1374 RETURN 

1380 : 

1390 ‘###4 erreur dans le destinata 
ire #### 

1499 

1419 GOSUB 1159:LOCATE 1,26:PRINT C 

HR$ (243) :LOCATE 3,26:PRINT"XAvez-vo 
us fait une erreur £0-N; ?X":PRINT 

CHR$ (7) 

1426 g$=INKEYS: IF g$="" THEN 1426 
1430 IF g$="o" OR q$="0" THEN i46ÿ 


1449 IF g$="n" OR g$="N" THEN RETUR >CF 


N 
1456 GOTO 1424 
“1460 GOSUB 1154:LOCATE 1,26:PRINT C 
HR$ (243) :LOCATE 3,26:PRINT"AD: est 
cette erreur ? (1,2,4,4,5 ou &)X":P 
RINT CHR$ (7) 
1476 h$=INKEYS:IF h$="" THEN 1479 


4) Code po > 


destinatair : 


YA 
?TC 





FD 
?EC 


a 


>FF 
>RX 


>EJ 
FF 


FA 
UA 








?1AÀ v 


1489 IF h$="1" THEN GOSUB 1150:G0SU 
B 1260:G0T0 1550 


1490 IF h$="2" THEN GOSUB 1156:60SU > 


B 1280:60T0 1550 


1500 IF h$="3" THEN GOSUB 1159:605U : 


B 1390:G0T0 1550 


1510 IF h$="4" THEN GOSUB 1156:605U ; 


B 1320:60T0 1554 


1520 IF h$="5" THEN GOSUB 1156:G05U : 


B 1349:60T0 1554 


1539 IF h$="6" THEN GOSUB 1150:G05Ù : 


B 1369:G0T0 1550 

1549 GOTO 147ù 

1559 GOSUB 1150:LOCATE 1,26:PRINT C 

HR$ (243) :LOCATE 3,26:PRINT"XAvez-vo 

us fait une autre erreur <O-N> ?X 
“PRINT CHR$ (7) 

1569 1$=INKEYS:IF 1$="" THEN 1569 

1570 IF 1$="o" OR i$="0" THEN idév 

1586 IF 1$="n" OR 1$="N" THEN RETUR 

N 

159% GOTO 1564 

1606 RETURN 


1619 ‘+##+ impression expediteur #+ : 


#+ 
1629 

1636 GOSUB 266ÿ 

1649 IF nmxp$="" AND 1xp$="" AND ad 
xp$="" AND cdxp$="" AND cpxp$="" AN 
D pxp$="" THEN RETURN 

1650 PRINT #8,CHR$ (15) : "exp: ": 
a. mini 


C 
1676 PRINT #8,CHR$ (9) ;nmxp$ 
168à IF 1xp$="" THEN 1709 ELSE 1696 


1699 PRINT #8,CHR$ 19) : 1xp$ 

1794 IF adxp$="" THEN 1720 ELSE 171 
() 

1716 PRINT #B,CHR$ (9): adxp$ 


1720 IF cdxp$="" THEN 1749 ELSE 173 :# 


4 

1736 PRINT #B,CHR$ (9) :cdxp$ 

1748 IF cpxp$="" THEN 1766 ELSE 175 
Ô 

1759 PRINT #6,CHR$ (9) ;cpxp$ 

1766 IF pxp$="" THEN 1786 ELSE 1770 


1770 PRINT #8,CHR$ (9): CHR$ (27) 5" "5 5 


CHR$ (1) :pxp$ 


1784 PRINT #8,CHR$(27):"-":CHRS (0): : 
1796 PRINT #B,CHR$ (18): ‘condense a : 
nnule 

1800 RETURN 

1816 


1824 ‘#### impression destinataire 
###4 


"car à: 


1668 IF nmxp$="" THEN 1686 ELSE 167 : 


>TF 








?FC 
2YC 


>YD U 





1830 GOSUB 2069 

1849 PRINT #8,CHR$i11); 

1855 PRINT #8,CHR$(9): ‘saut de tab 
. hor, 


1866 IF nmd$="" AND 1d$="" AND add$ :EX 


="" AND cdd$="" AND cpd$="" AND pd$ 
="" THEN RETURN 


1870 IF nmd$="" THEN 1890 ELSE 1889 ; 


1884 PRINT #8,CHR$ (9) ;CHR$ (9) :nmd$ 
1896 IF 1d$="" THEN 1910 ELSE 1969 
1900 PRINT #8,CHR$ (9) ; CHR$ (9) ; 1d$ 

1916 IF add$="" THEN 1930 ELSE 1920 


1926 PRINT #B,CHR$ (9) :CHR$ (9) ; add$ 
1936 IF cdd$="" THEN 1956 ELSE 1949 


1949 PRINT #8,CHR$ (9) ;CHR$ (9) : cdd 
1959 IF cpd$="" THEN 1970 ELSE 1960 


1969 PRINT #B,CHR$ (9) ;CHR$ (9) : cpd$ 


1979 IF pd$="" THEN RETURN ELSE 198 : 


Ô 


1989 PRINT #B,CHR$ (9); CHR$ (9); CHR$( > 


27)3"-";CHR$ (1) spd$ 


1996 PRINT #8,CHR$(27);"-"S CHR (Qi: 5 


26606 RETURN 

2610 PRINT #8,CHR$ (27): CHARS (6) +CHR$ 
(12); ‘chamnt de page 

2629 RETURN 

2630 ‘ 

2649 ‘*### attente + reglages impre 
ssion #+### 

2050 ‘ 

2060 x$= "4 # + RO ON OH ON À À # À + 
x +" ‘ 


2070 VS=" # ON ON # + À À À + : 


+ " 


2680 CLS:FOR n=i TO 960: NEXT n:LOCA : 


TE 34,4:PRINT'#X IMPRESSION X#":PRI 
NT CHR$(7):LOCATE 36,10: PRINT "Véri 
fiez L'imprimante":LOCATE 28,12:PRI 
NT "puis pressez Control + ‘i°" 


2096 LOCATE 26,13:PRINT x$:LOCATE 2 ; 


b,13:PRINT y$:LOCATE 26,9:PRINT x$: 
LOCATE 26,9:PRINT v$:a$=INKEYS$: IF a 
$=">" THEN 2166 ELSE 2099:G60T0 210 


2100 PRINT #8,CHR$ (27) ; "B";CHR$ (10) 
:CHR$ (8): ‘reglage de la tab. vert. 


2116 PRINT #8,CHR$ (273; "D": CHR$ (3) : 
CHR$ (20) :CHR$ (8): ‘reglage de la ta 
b. hor. 


2126 PRINT #8,CHR$ (27) : "C"'s CHR$ (0): : 


CHR$ (4.5); ‘reglage de la 1gr. de p 
age 
2139 RETURN 


?LN 


V6 


>EKQ 


AUTO-DICTEE 





Dominique DEVEVEY 








Le programme permet de saisir le texte d'une auto-dictée 
puis de l'apprendre en essayant de retrouver des mots cachés par 
l'ordinateur. Au fur et à mesure que l'enfant progresse, l'ordinateur 
cache de plus en plus de mots. Si au contraire, il fait trop 
de fautes, le niveau de difficultés n'augmente pas. 


Saisie d'un nouveau texte : il est 
possible de mémoriser un texte de 
treize lignes maximum grâce à un 
éditeur plein écran. Dès que les 
treize lignes de texte sont remplies, 
le programme revient automatique- 
ment au menu. 

Il est cependant possible de revenir 
à tout moment au menu en tapant 
simultanément sur les touches 
[CTRL] et C. L'ensemble des carac- 
tères d'imprimerie usuels peuvent 


être saisis, y compris les caractères 
accentués regroupés sur le pavé 
numérique. 

Il n'est toutefois pas possible de sai- 
sir des alinéas. 

Corriger un texte : à partir du menu, 
il est possible de modifier un texte 
en mémoire soit pour corriger une 
faute, rallonger ou raccourcir le 
texte. Attention ! Si l'on veut corri- 
ger un texte de longueur maximum 


autTo-DICTEE La 


MENU 


veau texte... 
y2auto-dictée 


À À 


texte en cours: 


SAT 





. FFITILI2 


L. 
LA 
Les 
S 
L 
Li] 
L 


(treize lignes pleines), il est néces- 
saire au préalable de supprimer au 
moins un caractère. On revient au 
menu en tapant sur [CTRL] et C. 
Entraînement : si un texte vient 
d'être saisi ou modifié, l'ordinateur 
va tout d'abord compiler le texte. 
S'il trouve des mots trop longs 
(vingt-cinq caractères), il affichera 
automatiquement le texte pour cor- 
rection. 

Le texte est tout d'abord découpé 
en mots. Chaque signe de ponc- 
tuation est considéré comme un 
mot. Deux mots séparés par une 
apostrophe sont considérés com- 
me un seul mot. 

Puis le fexte est affiché, un certain 
nombre de mots étant remplacés 
par une chaîne d'asterisques com- 
prenant autant d'asterisques qu'il y 
a de lettres dans le mot à deviner. 
Losqu'on le tape, il est possible de 
le corriger par surimpression. Il est à 
noter que le programme néglige les 
espaces quand il compare le mot 
saisi au mot à deviner. Il est pos- 
sible à tout moment de revenir au 
menu principal en tapant simul- 
tanément sur les touches [SHIFT] 
et£. 

Sauvegarde-Lecture sur cassette. Il 
est possible de sauvegarder un 
texte sur cassette. Toutefois ce 
texte doit avoir au préalable été 


compilé en utilisant la fonction "En- 
traînement" du menu. 

Test. Il est possible de tester son sa- 
voir. Dans ce cas l'ordinateur n'af- 
fiche rien : ni astérisque ni mot, et il 
faut reciter toute l'auto-dictée en 
devinant chaque mot un par un. 
Traduction en siaçnarf : nous vous 
laissons le soin de découvrir cette 
langue. 


Touches redéfinies 
du pavé numérique 





10 CHAMHEIIEII LA 
26 ‘# AUTO-DICTEE # LE 
30 CHIFFRE LC 


75 DIM car$(28):MODE 1:WINDOW #6,i. ?TE 
46,3,25:duree=600: INK 0, 1:INE 1,5:1 
NE 2,0: INE 3,14:balai$=GPACES (24; :P 
APER 9:PEN 1:BORDER 4:WINDOW #2.1,4 
6,19,25:FAPER #2,2:WINDOW #1,1,40,1 
2 :PAFER #1,0 
13% FÜR 1=0 TO 5:PLOT 7,393-3#1:DRA 
WR 78,0,2:PLOT 595,393-3#1:DRAUR 78 
SD: NEXT: PRINT: CHARS (&17)+CHR$ (43): T 
AG: MOVE 100,393: PRINT: "4 # # AUTO 
-DICTEE +# # # “:: MOVE 192,392:PRIN 
Ts “# x #  AUTO-DICTEE +* # # "; 
135 PLOT 500,500,3:MOVE 102,390:FRI 
NT: ‘# # #  AUTO-DICTEE +# * # ":: 
TAGOFF: PRINT CHR$ (417) +CHR$ (80) 
146 CLS:GOSUB 2110:WHILE -i: LOCATE 
18,5:PEN 1: PRINT'MENU":PRINT:PRI 
NT" Taper un nouveau texte......., 
suce "st PEN 3: PRINT: "N":PEN 1: PRINT 
:PRINT" S'entrainer @ l'auto-dict{ 
Buoussses "st PEN 3: PRINT: "E":PEN 1:P 
RINT:PRINT" Corriger le texte en c 
OUPS. sou 
220 PRINT:PRINT" Sauvegarder un te 
LÉ sssssssesssese "3 PEN SPRINT: "S 
"4 PEN 1:PRINT:PRINT" Lire un text 
e sur cassette.......,.."::PEN 3:PRI 
NT; "L" :PEN 1:PRINT:PRINT" Affiche 
r la traduction en siaïnarf.";:PEN 
© S:PRINT: "A" : PEN Î: PRINT 
230 PRINT" Test sans affichage du >BK 


?DC 


PU 


Se 


La 


?MB 


>RH 


texte. .....":: PEN SPRINT: TT": PEN 
l:LOCATE 3,22: PRINT"' Tapez la lettre 
correspondant" 


274 FRINT" & votre choix:":a$="": 4h : 


ILE a$="":a$=[INEEYS: HEND: a$=UFFERS ( 
a$):choix=INSTR( "NECSLAT" ,a$): LOC 
ATE 16,23: PEN 3:FRINT a$:FEN 1:FDR 
-t=i TD duree: NET: ON choix GOSUE 
456.376, 566 .650,774, 1104, 1194: WEN 
D 


370 CLS:IF ne=ÿ THEN :LOCATE 5.5:F : 


RINT'II nv a pas de texte en mimoi 
re.":FOR t=6 TO duree#2:NEXT:CLO:RE 
TURN 

386 IF tex=6 THEN GOSUB 2295 


385 IF retour =i THEN retour=6:RETU :G4 


FN 


390 IF tex=û THEN DIM motbi$inomoti :7Y 


.drap inbmot) 
4é GOSUE 2546 
4iè RETURN 


450 IF ne=ù THEN GOSUE 1399 ELSE 6 :6 


OTÜ 47ÿ 
466 ne=1:RETURN 


470 CLS: PRINT: PRINT: PRINT: PRINT VU à 


ous avez dijé un texte en mimoire." 
PRINT: PRINT"  Confirmezi eftaceme 
nt (O/N)." 


480 WHILE -i:a$="":WHILE a$="":a$zl : 


NKEY$#: WEND 

490 a$=LOWER$ (a$) :n=INSTR "on", a$} 
906 IF n=i THEN ERASE le$:IF tex=i 
THEN ERASE mot$ .motbl$ .drap:tex=0 


910 IF n=2 THEN CLS:RETURN 

929 IF n=i THEN GOSUB 1366:ne=1:RET 
URN 

939 IF n=2 THEN CLS:RETURN 

946 WEND 

980 CLS:IF ne=ÿ THEN :LOCATE 5.5:F 
RINT'II nv a pas de texte en mimoi 
re.":FOR t=9 TO dureex2:NEXT:CLG:RE 
TURN 


996 IF tex =1 THEN tex=ÿ:ERAGE mot$ >R 


.motbl$,drap 

609 GOSUB 1360 

619 RETURN 

656 IF tex=ÿ THEN CLS:LOCATE 5,16:P 
RINT'Pas de texte compili en mimoir 
e“:FOR t=1 TO duree#2.5:NEXT:CLS:RE 
TURN 


660 CLS: PRINT: PRINT: PRINT: PRINT" M : 


ettez une cassette dans le lecteur, 
“s PRINT: PRINT" appuyez sur 

les touches “:PRINT:PRINT R 
EC et PLAY, puis appuvez sur“:PRINT 
PRINT" n'importe quelle tou 
che, " 


b70 CALL &BBO6:LOCATE 16,12:PEN 3:P : 


[ag] 
nul 


RINT'Fatience'":FEN L:OPENOUT “'dic 
tee” 


86 FRINT#S ,nbmot :NH 
694 FOR t=i TO nbmot :FC 
76 PRINT #9,mot$(t; 3FY 
714 NEXT ? :FH 
7238 CLOSEOUT RE 
758 CLS:RETURN :LW 
774 CLS:HHILE nec26: CLS: PRINT: FRENT ME 
PRINT: FRINT:FRINT:FRINT® Vous ave 

z diié un texte en mémoire. “:FRINT: 
FRINT" Ce texte va ‘tre efta 
ci": PRINT: PRINT" Confirmez 1° 
effacement D/Ni.“ 

796 WHILE -1:a$="":HHILE a$="": :QF 
a$=[NFEY$: WEND 

Bac a$=LONERS ta$i :n=INSTRo FR 
n",af) 

816 IF n=2 THEN CLS:RETURN WG 
B2ÿ IF n=i THEN ne=6:ERAGE 1 :CF 
et :GOSUE 89%: CLS: RETU 

RN 

836 WENC EF 
84ù WEND :DA 
856 GOSUE 894:CLS:RETURN aVL 


89% IF tex=1 THEN tex=6:ERASE motb : 


1$,drap,moté 


906 CLS: PRINT: PRINT: PRINT: FRINT:FRI A 


NT" Mettez une cassette dans le ie 
cteur, “:PRINT:FRINT: PRINT" appuve 
z sur ja touche FLAY, puis": PRINT:F 
RINT: PRINT" appuyez sur n'im 
porte":PRINT: PRINT: FRINT" 

quelle touche. “ 


914 CALL &BB66:LOCATE 16,16: PEN 3:P à 


RINT'Fatience!":FEN | 

920 OFENIN “'dictee" 

930 INPUT #9,nbmot 

940 DIM mot$(nbmot) 

950 FOR t=i TO nbmot 

968 INPUT #9,mot$(t) 

970 NEXT:CLOSEIN: 

980 DIM le$( 1496) : lez 

996 FOR t=i TO nbmot 

1606 FOR n= 1 TO LENinot$(t)) 
1816 letile)=MID$(mot$(t},n,1) 


1920 le=leti 

1639  NEÏTn 

1548 le$(lei=" ":le=leti 

195% NEXT t 

1960 nl=le:le$(ni+i)=" 

1976 DIM motbl$(nbmot). drap inbmot) 
ttex =isne=i 

1989 CLS: RETURN 

1196 IF tex=6 THEN CLS:LOCATE 5,16: 
PRINT"Pas de texte comilt € tradui 
re": FOR t=1 TO duree#i.B:NEXT:CLS:R 
ETURN 


23 


1119 CLS 

1120 GOSUB 2449 

1130 a$="":WHILE a$="":a$=INKEYS: NE 
ND 

1149 CLS 

1150 RETURN 

1199 CLS 

1206 IF tex=0 THEN GOSUB 2295 

1210 IF tex=0 THEN DIM motbl$(nbmot 
},drap{nbmot}) :tex=i 

1220 TESTe =1:605UB 2549 

1230 TESTe =0 

1240 RETURN 

1300 DIM le$(520):nl=i:le$(i)=" " 
1360 CLS :PEN 2:LOCATE i,21:PRINT"S 
aisissez votre texte":PRINT"Longueu 
r maximum: 13 lignes"::PRINT"Quand 
vous avez termint appuyez “:PRINT's 
ur CTRL et sur C':PEN 1:LOCATE 1,1 


1576 FOR n=i T0 nl:PRINT:le$(n)::NE : 


XT:PRINT;" 

1380 :l1i=i:co=1:G0SUB 1976: trait=0 
1390 trait=0:q=0 

1430 WHILE -1 

1449 ch=INKEYS 

1459 WHILE c$="" 

14068 IF INKEY(62)=128 THEN trait =1 
:60TO 1590 

1499 c$=INKEYS 

1499 WEND 

1500 c=ASC (c$) 

1516 IF c>239 AND c<244 THEN GOSUE 
1629 


1539 IF INKEY(16)<>-1 THEN recu=0:6 : 


OSUB 1830 


1540 IF INKEY(79)<-1 THEN recu=i:6 : 


OSUB 1839 
1541 IF n1>518 THEN GOTO 1598 
1544 IF (c:31 AND c{127 OR c=128}) À 
ND trait=0 THEN GOSUB 1746 
1545 IF n1>518 THEN GOTO 1594 
1354 WEND 
1598 CLS: RETURN 
1626 l1i9=li:coë=co 
163% nole=(1i-1)+4ÿ+co 
164 LOCATE co, li:PRINT le$(nole) 
1650 IF C=249 THEN LII-1 
1669 IF C=241 THEN LI=LI+I 
1678 IF C=242 THEN co =co-i 
1689 IF C=243 THEN co=coti 
169% nole=(l1i-1)+40+co 
1706 IF noleti OR nole nl THEN 1i= 
119 :co=coû : PRINT CHR$(7} 
1719 GOSUB 1976:RETURN 
1749 nole =(1i-1)#40+co: IF nole‘i 0 
R nolenl THEN RETURN 
1750 nl=nl+1: FOR n=nl TO nole+i STE 
F-i:le$(n)=l1e$(n-1):NEXT 
24 


>1C 
WG 
EE 


>1F 
FA 
>AA 
ND 
>EM 


>TF 
>JB 
>FA 
ÿ1D 
LC 


a 


WF 
?BU 


MK 
>JF 
LU 
?N 
>Q7 
>CY 
>TU 
>TU 
?TX 
TR 
?0F 
EE 


?RA 
>AR 


?FJ 


1769 le$(nole}=c$:LOCATE co, 1i:PRIN 
T cé; 

1770 FOR n=nole+i T0 nl 

1780 PRINT: le$(n): 

1799  NEXT 

1809 c=243:GOSUB 1620 

1819 RETURN 

1839 nole=(li-1)}#40+co-recu 

1846 IF nole=nl AND recu=ÿ AND le$( 
nl)=" “ THEN PRINT CHR$ (7): RETURN 
1850 IF nole{i OR nole>nl THEN PRIN 
T CHR$ (7) : RETURN 

1869 IF recu =i THEN co=co -1:1F co 
{1 THEN li=li-j:co=40 

1870 LOCATE co, li 

1888 FOR n=nole T0 nl:le$(n)=le$(n+ 
L):PRINT le$(n):;:NEXT 

1899 IF 1i=9 THEN li=i:co=i 

1999 nole=(li-1)#4ÿ+co 

1919 nl=nl-i:le$(nl+i)=" ":le$(nl+2 
j="" 

1929 GOSUB 1970: recu=û 

1939 RETURN 

1976 IF co>40 THEN co=i:li=li+i 
1989 IF co<i THEN co=49: li=li-i 
1990 IF li£i THEN li=i 

200% IF 1i>24 THEN 1i=24 

2919 nole=(l1i-i}#40+co 

2029 IF nole>nl THEN FOR n=1 TD 24 
:PRINT CHR$(7):NEXT:GOTD 2060 

2030 FRINT:CHR$ (24) 

2046 LOCATE co, li:PRINT lef$(nole) 

2059 PRINT: CHR$ (24) : RETURN 

2060 co=co-1:G0SUB 1976 

2679 RETURN 

2116 SYMBOL AFTER 64:5YMBOL 125,&k60 
1419, 43C, kbb, LE, RO, RIC:KEY 135,CH 
R$(123):SYMBOL 123,b6,8B, 30, béb, &7 

E,469,83C:KEY 128, CHR$(125) : SYMBOL 
64 ,860,810,&7B,8C,&7C, CC, k76 
2170 KEY 129 ,CHR$ (64): SYMBOL 92,80 
140,83, Léb, kb, LE, &B, RIB:KEY 132, 

CHR$ (92): SYMBOL 124,830,88, 466, kbb, 
bob, kbb,&3E:KEY 137, CHR$(124) : GYMB 
OL 94,810,424,&3C. kb, L7E, kb0, RC: K 
EY 134,CHR$ (94) :SYMBOL 93,41,22,8k4, 
8B,410,420,840,880:KEY 131 ,CHR$ (93 
} 

2180 KEY 136,CHR$(91):KEY 133,CHR$( 
95):KEY 130 ,CHR$(126):KEY 138 ,CHR 
$(128):SYMBOL 91,8418,824,83C, kôb, kb 
b,kbb,&3C: SYMBOL 93,418,824,878,8C, 
&7C, &CC,&76 

2190 SYMBOL 95,8418,824, bb, kb, bbb, 
Rbb, SE: SYMBOL 126,418,424,830,418, 
&18,418,83C:SYMBOL 128,866, 0,430, hé 
b,&7E, k6Ô, &3C 

2266 RETURN 

2295 CLS:LOCATE 16,6:PRINT: "Fatienc 


JV 


>RV 
?NN 
MG 
>PM 
>FD 
>WX 
>0B 


>WL 


>YP 


>MA 
CA 


NY 
>Q7 
2FV 


RE 
F6 
2ŸK 
2YK 
?PQ 
RH 
?0R 
2JX 


?NK 
CT 
LE 
?RE 
?FC 
?1A 


:CH 


ua 


?FU 


La 


Da 


>06 


>FD 
CR 


v 


e!":LOCATE 15, 8:PRINT: "Je compile" 


2300 DIM mot$(n1/2.5+20): 

2316 i=6:n=0 

2320 i=iti 

233% ‘© WHILE -i 

2335 IF inl/2.5+20 THEN LOCATE 6,1 
0:PRINT"Manque de place en mimoire. 
“#LOCATE 11,12:PRINT'Veuillez racou 
roir":F0R t=1 TO duree+2.5:NEXT:ERA 
SE mot$:G60SUB 580: retour=1:RETURN 
2540 nent 

2360 IF nènl THEN IF mot$(i)<" 
“THEN nbmot=i :RETURN:ELSE nbmot=i- 
1:RETURN 
2370 
(i)="" GOTO 2349 ELSE GOTO 2320 
2380 IF INSTR( ",.:571+()" ,1e$ 
(n))<34 THEN IF mot$(ii="" THEN mot 
$(i)=le$ {n) : GOTD 4320:E 
LSE i=itismot$(i)=le$(n):60T0 2320 


2390 mot$li)=mot$(i)+letin) 
2391 IF LEN(mot$(i})>36 THEN CL 
S:LOCATE 5,16:PRINT"J'ai trouvé un 
not trs long.":LOCATE 6,12:PRINT"I 
1 doit y avoir une erreur. “:LOCATE 
6,14:PRINT"Je vous propose de corri 
ger. “:FOR t=1 TO duree+3,5:NEXT:ER 
ASE mot$:G0SUB 586: retour=i:RETURN 
2466  WEND 

2449 FOR i=i TD nbmot 

2458 vermot$="" 

246 FOR j=6 TO LEN(mot$(1))-1 


2470 vermot$=vermot$+MID$ (mot$ (ii, > 


LEN(mot#$(i}}i-3,1} 

2480 NEXT 

2496 PRINT: vermot$;" “: 

2506 NEXT :RETURN 

2546 CLS:IF ne=ÿ THEN LOCATE 9,18:P 
RINT"Pas de texte en mtmoire":FOR t 
=1 TO duree#i.B:NEXT:CLS:RETURN: EL 
SE LOCATE 5,16:PRINT'" Voulez-vous re 
voir le texte (O/N)?" 

2550 a$=INKEYS: HHILE a$="":a$=INKEY 
$:WEND :CLS 


2560 IF LOHER$(a$)="o" THEN GOSUB 3 > 


989 :LOCATE .1,23:PRINT"Pour continu 
er appuyez sur une touche":CALL RBB 
9b 

2576 CLS:607T0 2606 

2586 FOR t=1 TO nbmot:ürap(t})=6:NEX 
T 

2590 GOSUB 2976: RETURN 

2606 IF teste =1 THEN GOTO 2766 
2610 WHILE tex£>0 

2626 LOCATE 1,18 :PRINT:;" Voulez-vo 
us reprendre l'entrainement “:LOCAT 
E 1,12:PRINT:" 16 0! vous l'avez a 


IF le$in)=" " THEN IF mots : 


TK 
AJ 
>KD 
>HA 
LV 


?EM 


WC 
aŸT 


QC 


rrftt? (O/N)° 


2630 reprise=0:a$="":WHILE a$="":a$ >JB 


=INKEY$: WEND: a$=LOWERS (a$) 


2640 IF a$="o" THEN reprise =i ELSE >MJ 


reprise =ÿ 
2656 tex=0:WEND 
26b0 tex=i:CLS 
2670 
2700 FOR i=1 TO nbmot 
2710 ]=LEN (mot$(i)) 
2729 IF teste=i THEN motbl$(i)=ST 
RING$(1," " } ELSE motbl$(i)=STRING 
$(1,"#") 
2730 NEXT 
2770 FOR i=i TO nbmot:drap(i)=0:NEX 
T:IF reprise=1 THEN GOTO 2800 
2780 niv =b:reprise =à 
2796 niv =niv +] 
2809 IF nbmot £5 THEN fac=5 ELSE fa 
c = nbaot 
2819 ndev =2+ niv * INT (fac/5) 
2820 IF ndev >= nbmot-2 THEN fin = 
1 ELSE fin =0 
2830 IF fin =1 OR teste=1 THEN ndev 
= nbaot:FOR i =1 T0 nbmot:drap(i) 
= {:NEXT i:G60T0 3050 
2870 temp =TIME 
2889 FOR i =i TD ndev 
289%  j= RND(2) # nbmot 
2900 IF drapij}) = 1 THEN 2896 
299 drap{j) = 1 
292 NEXT i 
2939 GOTO 3950 
2976 LOCATE 2,1 
2986 FOR i =1 TO nbmot 


2999 IF drapii) = 1 THEN mmot$ =no : 


tbi$(i} ELSE mmot$ = mot$(i) 
3900  PRINT:mmot$+CHR$ (33): 
3019 NEXT i 

30206 RETURN 

39059 pntmax = ndev + 3 + 3 
3666 pnt = pntmax 

3070 cpteur = 4 

3080 cpteur = cpteur + i 


3690 IF cpteur > nbmot THEN GOSUB 2 : 


970:60T0 3346 

3199 IF drap(cpteur) = à GOTO 3886 

3116 PRINT CHR$(7):G0SUB 2976 

3120 essa = D:CLS #2: 

3130 essa = essa + Î 

3149 PEN #2,1:LOCATE #2,1,1 : PRINT 
#2,"Que proposez-vous pour le prem 
ier mot 

3156 IF teste=i THEN LOCATE #2,1,2 
5 PRINT #2, “ qui manque (trois es 
sais)" 

3169 IF teste=6 THEN LOCATE #2, 1,2 
: PRINT #2, "remplaci par des "5 C 

HR (24) ;CHR$ (42) :CHR$ (34): (trois 


>LH 
CB 
2YH 
?PU 
>ND 
CH 


LH 
LR 


>L 
CF 
JA 


?WQ 
LH 


RQ 


?6J 
2NG 
>PY 
VB 
WF 
WD 
?RB 
2XG 


>LH 
>VH 


TN 


essais)" 


3170 LOCATE #2,4,7:PRINT#2, "(Pour r ; 


evenir au menu tapez #) 


3180 LOCATE #2,1, 2 +essa :PRINT#2, : 


;"Essai no";essa; 

3190 GOSUB 5610 

3200 IF a$="#" THEN CLS :RETURN 
3210 n=1:WHILE car$(n)<>"" AND n<24 


3215 IF car$(n)=" " GOTO 3225 

3220 essa$=essa$+car$ (n) 

3225 n=n+i:WEND 

3230 IF essa$ <> mot$(cpteur) THEN 
3280 ELSE 3249 

3240 LOCATE #2,14,6 :PEN #2,3:PRINT 
#2,"EXACT !":FOR t=1 TO B9:NEXT:PE 

N #2,1 

3250 FOR t=1 TO duree :NEXT 

3260 drap (cpteur) = à 

3276 60TO 3089 

3280 pnt = pnt - i 

3285 LOCATE #2,12, 2 +essa:PRINT#2, 
sbalai$ 


3290 LOCATE #2,12, 2 tessa:PRINT#2, : 


*e55a$ 


3306 IF essa < 3 THEN LOCATE #2 .1 : 


9,9 : PRINT #2,"FAUX!" :FOR t=1 TO 
900: NEXT:LOCATE #2 ,19,5 : PRINT # 
2," “:G0TD 3130 

3310 :LOCATE #2,10,6 :PRINT #2,"La 
solution est:"; 


3326 PEN#2,3:FRINT #2, mot$(cpteur) : 


5: FOR t=1 TO duree :NEXT: 

3336 GOTO 3259 

3349 IF pnt € ndev # 3-3 THEN GOSU 
B 3420:60T0 2870 


3350 IF fin <>i AND teste €> 1 THEN 


GOSUB 3559:G60T0 2796 


3360 CLS:PEN 3:LOCATE 5,16:PRINT"Br >Y 


avo vous avez tout trouvi ! 
3370 FOR t=1 TD 3+*duree:NEXT:PEN 1 
3386 CLS:RETURN 

3420 CLS #2:LOCATE #2,4.2:PEN #2, 1 
3436 RANDOMIZE TIME 

3449 chx=INT (RND (2) #7) 


3456 ON chx GOTO 2466,3476,3480,349 ; 


9,3906,3510,3520,353 
3466 PRINT#Z,"Ca ne va pas fort... 
“:GOTO 3549 


3476 PRINT#Z, “Hum 1l faut faire att 5 


ention“:G0TD 3546 


3486 PRINT#2, “Appliquez-vous un peu ; 


l':GOTO 354% 


3490 PRINT#2, "Un petit peu d'attent ; 


ion":G0T0 3549 

3506 PRINT#2, "Vous n'“tes pas tr)s 
en forme":60T0 3549 

3516 PRINT#2,"Vous faites beaucoup 
de fautes":G0TD 3540 


3520 PRINT#2, "J'ai l'inpression que ) 


vous “tes fatigu{":60T0 3549 


3530 PRINT#2, "Vous vous trompez sou : 


vent":RETURN 


3549 FOR t=i TO 3#duree:NEXT: RETURN : 


3550 CLS #2:LOCATE #2,4,2:PEN #2,i 
3560 RANDOMIZE TIME 

3579 chx=INT (RND (2) #6) +1 

3586 ON chx G0TO 3590,3606, 3610, 362 
0,3630, 3649, 3650 


3590 PRINT#2,"I1 y a du progris .., } 


“:60T0 3660 


3606 PRINT#2, "C'est bien. On contin ? 


u.. “:607T0 3660 


3616 PRINT#2,"Ca progresse. Bon tra : 


vail. ":G0TO 3660 


3626 PRINT#2, "Vous aurez bientot 20 : 


sur 20! ":60TD 3660 


3630 PRINT#2,"Bon travail, vous vou : 


s appliquez! ":60TD 3666 


3646 PRINT#2,"Je suis content de vo 


us!":60T0 3660 


3650 PRINT#2, "C'est bien. Bon trava 


il. “:60T0 3660 


3660 FOR t=1 TO 3#duree:NEXT: RETURN : 


5019 FAPER #2,1:PEN #2,0 
5620 FOR n=i TO 24:car$(n)="":NEXT 
9930 po =i :ess5a$="" 


9035 PRINT#2, ;CHR$ (24) :LOCATE #2,11 : 


+po,2+essa:PRINT#2,5" "se: PRINT#2,5C 
HR$ (24) : 

9048 WHILE -i: a$="" 

9950 WHILE a$="" :a$=INKEY$: WEND 
9060 c=AGC (af) 

9676 IF c=13 OR c=163 THEN PAPER #2 
,2:PEN #2,1: RETURN 


9989 IF c=242 THEN mov=-1:G60SUB 513 : 


[) 


9090 IF c=243 THEN mov=+i:GOSUB 515 > 


9 


91996 IF (c>31 AND c€127 OR c=128) T : 


HEN car$(po)=a$:mov=+1:G0SUB 5134 
5119 WEND 


5130 IF (po =1 AND mov=-i} OR ( car : 


${po)="" AND mov =+1) THEN PRINT :C 
HR$(7)::RETURN:ELSE LOCATE #2, 1i+po 
.2tessa!:PRINT#2,:;car$(po }:po =po 

+mov 

5141 IF po>24 THEN po=?4 

5142 IF car$ipo)="" THEN PRINT#2,:C 
HR$ (24) :LOCATE #2,11+po, 2+essa:FRIN 
T#2,5" "se PRINT#2, : CHR$ (24) ::G0T0 5 
160 

9199 PRINT#2, ;CHR$ (24) :LOCATE #2,11 
+po, 2+essa:PRINT#2, ; car$ (po) : : PRINT 
#2,:CHR$ (24) 

5160 RETURN 


RE 
>DF 


?PN 


>FF 


25 


MANOIR MAUDIT 


Pascal DOBIGEON 





Préparez-vous à vivre une aventure de terreur 
dans un manoir hanté. 

Une vingtaine de salles mystérieuses attendent 
votre sagacité et votre logique. 
Parviendrez-vous à découvrir l'horrible secret 
que recèlent les murs anciens ? 





16 ‘Le MANOIR MAUDIT 

26 ‘Pascal DOBIGEON' 

36 ‘Amstrad CPC 464” 

40 ‘PRESENTATION 

99 DEFINT a-z:MODE i: BORDER 15 


26 


Bon courage ! 


68 PLOT 289,80,1:FO0R ins=i TO 263:R >MD 
EAD in$,iy 
76 IF UPPERS(LEFT$(in$,1})="P" THEN NH 
PLOTR VAL(MID$(in$,2)),iy ELSE DRA 
WR VAL (in$),iy 


86 NEXT 

96 DATA 9,199, 350, 0,0,-194,-350,0,P 
0,190,50,50,30,0,P70,9, 150,0, 50,-50 
,F-270, 20,6, 49,19,10,P-10,-50, 50,0, 
ô,49,18,10,P-10,-50, 10, 10,0,40,-50, 
0,F-19,-10,50,0,F20,-10,-10,0,PD,-2 
49,0,70,10,10,P-10,-19,70,0,0,-70,F 
-b0,70,0,-70,PD, 80, 70,0,0,-80,P-10, 
79,10, 10 

196 DATA P-80,-80,-80,-80,P160,80,- 
40,-80,P-140, 246,80, 0,0, -66,-B0, à, 0 
,60,PÔ,-60, 30, 19, 0,50,P-5, -45, -25,- 
18,P25, 10,0,45,P0,-20,-25,-5,F0, -10 
,0,5,P45,30,0,-40,-5,-5,40,0,P4,5,- 


35,0,F36,9,0,40,P-5,-15,PB5,-105, 10 


,0,0,-5,-5,0,P-5,5,0,-5,5,0,P105, 12 
5,-70,0 

119 DATA D,-60,70,0,0, b0,P-30,9,0,- 
bb,P-10,0,0,bû,P-30,-30,30,0,P10,0, 
30,0,P-225,90,50,0,P-50, 19,50, à,P-5 
0,10,50,0, 19, 10,P4,-10,-10,-10,P0,- 
19,19, 10,P-35,-20,0, 40,P-105,-236, 1 
49,0,P80,0,130,0,P0,-10,-130,0,P-80 
,0.-149,0,P20, 10,0,-20,P20, 0,0, 20,P 
24,6,0,-20 


126 DATA P20, 0,0, 20,P26,0,0,-20.P20 


,9,0,20,F124,0,0,-26,P20, 0,0, 20,P20 
,0,à,-20,720,0,0,29,P29, D, 0, -20,F26 
,9,0,20,P-72,80,0,60,P-418,-236,0,6 
0,30, 30, 60, 0,P-90,-90, 99,0, 0, 6, -90 
,à,F90,0,30,30,-30,0,P3D, 0,0, -bù, -3 
0,-39,P-2,68, 16, 16,-70,6,-18,-18,70 
,9,P-52,18 


136 DATA 6.-18,P-34,-22,96,0,30,30, : 


36,167,-116,0,0,-90,P110,-10,-36,0 
.F-89, 190,20,20,90,0,P-110,-29,-60, 
0,0,-160,40,0,P-30,100,0,-100,P0, 70 
,90,0,F-50,-40,50,0,P-30,69,0,-100, 
P20,16,0,90,P-50,0,-50,0,0,-100,50, 
0,P0,30,-50,0,P6,40,56,0,P-20, 30,9, 
106 

149 DATA P-24,0,0,100,F-10,9,-60,0, 
P4,-100,69,0,F0,100,-20,20,-40,0,F1 
16,-B0,P-2,0,P2,2,P-2,0 

150 PLOT 19,289,2:DRAN 16,390: DRAW 
276,390:DRAW 276,289: DRAW 19,280:PL 
OT 8,284: DRAN 8,386: PLOT 14,392: DRA 
W 272,392:PLOT 278,386: DRAW 278,284 
:PLOT 272,278: DRAW 14,278 

1bû PEN 3:LOCATE 2,2:PRINT'LE MANOI 
R MAUDIT':PEN Z:LOCATE 5,4:FPRINT"-- 
par --"{LOCATE 2,5:PRINT"Fascal Do 
bigeon":LOCATE 6,7:PRINT"An 1987" 
178 FÜR mus=i TO 45:READ h,d: SOUND 
7,h, di NEXT 

180 DATA 478,25,358,25, 358, 25, 358, 2 
9,319,25,478, 25,478, 25,319,25, 478,2 
9,478, 25, 284,25, 358, 25, 239,25, 239,2 
9,284,12,239, 12,284, 12,239, 12,253,2 


I 
»IT 


?GE 


?RN 


LD 


AJ 


e 


2NG 


?DC 


5,319,25, 253, 25, 253, 25,319, 12, 253, 1 
2,319, 12,253, 12, 284,25, 0,25, 239,25, 
179,12,190, 12,213, 12,239,12,253, 12, 
284,12 


190 DATA 239,25, 253, 25, 319, 25, 379, 1 : 


2,358,12,319,12,284,12,253,12,239,1 
2,358,50 

260 FÜR pau=1 TO 5000:NEXT 

219 nl=23:no=52:nv=i4snd=1à: ] jo=21 


220 DIM li$(nl}.sor(nl,é),ob$(no) ,0 : 


b3j$ (no) ,ob (no) ,petno} ,ver$inv) ,drin 
d) 
230 ‘VERBES 


24% DATA EXAMine,PRENds. POSE, OUVRe, : 


UTILise,DETRuis,REMF lis, BOIS, TUER,L 
IRE,ATTAche, COUPE, METS, AS5Omme 
254 ‘OBJETS 
269 DATA un eur de pierre,mur,i,8,u 
n autel de sacrifice poussiereux,au 
te,i,ô,un zombie assoiftfe de sang,z 
omb,i,0,votre ancetre,ance,Ÿ,6,une 
grande table en chene sculpte,tabl, 
2,4,une tapisserie avec des inscrip 
tions, tapi,2,6 
270 DATA une cuisiniere en mauvais 
etat,cuis,3,0,un epieu en fer rouil 
le,epie,3,14,beaucoup de livres sur 
l'exorcisme, livr,4,6,quelques parc 
hemins,parc,4,2,un lit demesure, lit 
2,0,des explosifs sous le lit,expl 
2, 9,une grosse masse a long manche 
mass, 0,15 


286 DATA une vieille armoire, armo,& ?C 


.S,une porte ouverte au nord.port,à 
+%,un tableau terni,tabi,7,6,un jeu 
d'echecs sur le sol, jeu,7,8,un nai 
n surpris dans son sommeil,nain,6,à 
.la porte d'entree ouverte,port,B,ù 
un coffre en fer,coff,9,8 


296 DATA un casque de la Î ere quer :k 


re mondiale.casg.4.7.de vieilies ph 
otos,phot.4,2,un cadenas ferme,cade 
.9,3,un secretaire en bois poli,sec 
r,14,9,une cle,cle,ë,2,des tiroirs, 
tiro,9,9,une fiole contenant un phi 
itre,fiol,12,6,une cheminee noircie 
.Chem, 12,6 
366 DATA un passe-partout,pass, 0,2, 
une table de chevet. tabl,13,6, deux 
lits de petité taille, lits, 13,0,une 
araure restauree, armu, 14,0 ,une por 
te fermee au sud,port,14,6,des toil 
es d'araignees au plafond, toil,15,6 
une baignoire sale,baig, 15.6 
316 DATA uh rocher couvert de mouss 
e.roch,i7,0,une gourde en peau, qour 
117,5,le nur d'enceinte, aur, 16,0,un 
petit batiment en ruine,bati, 18,0, 
un secateur, seca, 19,9,un rateau,rat 


?EV 


?EQ 


DR 


>FP 


e.19,12.une pelle,pell,19,13,un pui 
ts profond,puit, 26,0 


326 DATA un banc en bois pourri.ban ? 


c,29,9,une corde attachee,cord,4,9, 
la grille d'entree fermee,grii,21,6 
beaucoup de grands arbres, arbr,2i, 
ô,beaucoup d'arbres. arbr,22,0,un ch 
emin au sud,chem,22,4,la grille d'e 
ntree ouverte,gril,23,0 


339 DATA la porte d'entree fermee,p : 


ort,23,9,1a grande facade, faca, 25,6 


349 ‘LIEUX 
350 DATA dans la cave,d,0,6,4,3,0,d 
ans la salle a manger,9,6,7,3,0,6,d 
ans la cuisine,6,0,2,6,4,1,dans la 
bibliotheque, 14,6,12,5,6,0,dans une 
chambre a coucher. ,6,4,4,4,6,dans 
le grenier,6,0,0,4,9,16,dans le sa 
10n,6,9,8,2,6,0,dans 1 'entree,6,8,2 
3,9,4,0 
366 DATA dans un couloir,ii,2,8,16, 
4,0,dans le bureau, 4,6,9,6,6,6, dans 
l'escalier,6,9,6,9,1ë6,9,dans la ch 
ambre d'anis,à,6,9,4,6,0,dans une € 
hambre a coucher,6,6,6,14,0,8, dans 
un couloir,16,6,13,15.0,6,dans la 5 
alle de bains.6,6,14,6,8,9 
374 DATA dans un escalier vermoulu, 
0,14,6,6,6,11,devant une petite sou 
rce,2,0,0,18,6,9,dans un jardin en 
friche,0,9,17,19,6,6,dans le batim 
ent.,9,9,18,6,6,6,dans un sous-bois, 
22,17,9,6,6,6,sur un chemin toresti 


er,0,0,0,0,0,0 


380 DATA sur l'allee principale,ë,x : 


4,21,23,0,9, devant l'entree du mano 
ir,0,04,22,0,0,0 
390 ‘DIRECTIONS 


490 DATA le Nord,ie Sud,i Ouest. i E : 


st.le haut,ie bas 
416 ‘INTRODUCTION 


EN 


3VD 


UF 


426 CLS:BORDER 16:PEN S:LOCATE 12,1 4Lk 


:PRINT"Eon Sejour dans le":FRINT Tâ 
B(13) "MANOIR MAUDIT :" 


436 PEN L:PRINT:PRINT STRING (46,15 :FY 


2} 
449 PEN 2:FRINT" 
prise de recevoir unelettre d un on 
cle eloigne qui vous leégueune maiso 
n tres ancienne." 

456 PRINT" Mais vous apprenez ega 
lement que ce petit manoir a toujo 
urs eu une histoire mouvementee. ‘ 
469 PRINT" 
cetres y a disparu et on dit qu 
e cette habitation est hantee !" 
478 PRINT" 


ces avertissements, vous 


Vous avez ia sur :Ÿ 


Un de vos lointains an : 


Sans prendre en compte : 


HD 


decidez de visiter votre nouvelle 

propriete,“ 

480 FEN 1:PRINT:PRINT STRINGS (49,15 

2) 

496 FOR i=1 TO nv:READ ver$(i):ver$ >UD 
(i}=UPPERS (LEFTS (ver$ (1) ,4) ):NEXT 

969 FOR obj=1 T0 no:READ ob$(obji,o FT 

bj$(obji,ob(obj),pelobj}:obi$(obj}= 
UFPERS (ob j$ (ob 3) } 4NEXT 

918 FOR li=i TO nl:READ 11$(11):FOR >7F 
dir=i TO 6:READ sor(li,dir):NEXT:N 

EXT ; 
929 FOR dir=i T0 6:READ diréidir)iN F4 

EXT 

530 FEN 3: INPUT 
instructions “;rep$ 
540 IF UPPERSILEFTS$ (rep$,1))="0" TH RE 

EN 566 ELSE 674 

996 ‘INSTRUCTIONS TA 

966 MODE 1:BURDER S:PEN 3:LOCATE 15 FX 
412 PRINT INSTRUCT IONS" 

974 PEN L:PRINT: PRINT STRING# (46,15 FD 

2) 

086 PEN 2:PRINT" Dans cette avent 
ure,chaque lieu est decritioutre 5 

on nom, vous lisez les objets s' 
y trouvant et les directions perm 

ettant de sortir du lieu." 


>FD 


va 


Voulez-vous les :MC 


La 


?HH 


996 PRINT" Four vous depiacer,vou :TH 
s devez uniquement taper j'‘i 
nitiale de la direction souha 
itee." 


é6é FRINT® Four indiquer vos acti :NL 
ons, vous devez utiliser un verbe se 
pare de i'objet par un seul espace, 


ü 


6i6 PRINT" Le verbe,comme l'objet :FR 
.doit etre ecrit avec à lettres 
minimum." 


&24 PRINT" Je comprends aussi des ; 
commandes de lettres minimum deva 

nt etre utilisees seules: INVentai 
re, VERbes, INStructions, SAlvedarde 
,CHârgement et FIN." 

639 PEN 1:PRINT:FRINT STRINGS (46,15 :FA 

2) 

64 PEN 3:PRINT TABi16:i "Appuyez sur 
une touche" 

656 WHILE INKEY$="":WEND ?UE 

bëÿ ‘AFFICHAGE 3TC 
678 CLS:INE 2,9: WINDOW #ÿ:1,48,17,2 3EL 

S:HINDOW #1,1,49,1,5:WINDDW #2,32, 
0,7,15:WINDON #5,1,36,6, 16: PAFER #5 

2: BORDER 5:6070 699 

684 PRINT: IF an=lijo THEN 74ÿ WZ 

698 an=ljo:ON 110 GOSUB 35786,3800,3 :Fk 
819,392, 3856, 3886, 3890, 3914, 3930,3 

956,3974,3990,4016,4049, 4486, 4086. 4 
119,4136,4156,4166,4190,4220, 4250 


É 
z 


27 


la gr 


us voye 
4 CR 


beaucour 


Füb CLS #3: MOVE 6.144: DhAN 8,318,2: 
DRAW 478,35: DRâw 473,144: DRAN 6,14 
3 


714 READ tot,ix,1v:FLOT 14,1V, 2 FOR :HC 


ins=i T0 tot:READ in$,iv 
726 IF UFFERSILEFT# ing, iris 
N FLOTR VAL(MID#(iné,2i,1v ELSE DR 
AWR VAL (in$i.1v 
73% NEXT 

744 CLS #i:FEN #i.3 
754 PRINT #1.'"Vous etes 


CR 
. 


“siigilioi: 


168 PEN #1.i:FRINT #1,"Vous vovez * F6 


+11mp=Û 
770 FOR 1=1 TO no:iF obiiii 
N Bug 
766 IF FÜS(#LI+LEN ob#i11;:46 THEN 
PRINT #i 
796 imp=-1:FRINT #i.ob$(iis",ts 


896 NEXT:IF NOT imp THEN FRINT #1." >Fh 


rien de particulier." ELSE PRINT #1 
CHAR): "," 

816 CLS #2:FEN #2, i 

826 PRINT #2,"Gorties vers 
T #2:imp=ù 


36 FÜR dir=i TO 6:iF soriljo,diris : 


34 THEN 1mp=-1: PRINT à 
846 NEXT:IF imp=6 THEN PRINT #2."n 
lle part." 


856 IF ljio=9 AND drisi=é THEN mor$= ;Y! 


“Yr anva vnapr ha chvtaneq gr y rag 
err  dhv ibhf gbhpur ra cvrva pbrh 
e !“:GOTO 1489 


86ÿ IF 1jo=7 AND dri5i=-1 AND LENir 


ep$i=i AND rep$<:"E® THEN mor$="Yr 

anva n ercevf pbafpvrapr,vy ynapr q 

r y'ragerr ha chvtaneq dhv ibhf ghr 
arg !":6070 1486 

874 IF Ljio=ié AND rep$="B" AND NÛT 

drii4) THEN so=i:mor$="Ra grfpragna 
28 


s ar. 





p' THE :P 


5110 THE FX 


- 956 IF LEFT$irepé. 3€; 


"2 PRIN UT 


ent. 
e4 entree fernee, 


Sorties 
LOTS 


TE 


a y ripavvre.har 2nepur prarrg 1bnf 
ibhf oevfrm vn grar ha crh cynt on 

+ i“:G0T0 1454 

655 FEN ZLOCATE 1,25: iNPUT ‘Que vo 

ulez-vous taire “:reph:rep$=uPPERS 

rep#i:FEN 1 

898 IF jj0=5 

B 5724 

964 IF LEN(rep$i:i THEN 95à 

916 a=INSTR("NSOEHE* 

HEN FRINT'Ce n'est pas une directio 

n ‘":60T0 6Bé 

$26 IF sor(ljo.ai: 
J0.a):FRINT'L accord. ":G60T0 686 
36 FRINT'äucun chemin n y conduit 
\":G0T0 684 

946 ‘INVENTAIRE 


zû 


Sék FOR obj=i T0 no:iF obiobji=-i T : 


HEN 986 
970 NEXT:FRINT"Vous ne portez rien. 
":GOTO éBÿ 


986 FRINT"Vous portez les choses su : 


ivantes:" 

9Gÿ FÜR obj=1 Tü no:iF obiobii=-i T 
HEN FRINT ob${obj) 
1686 NEXT:G60T0 68à 
1916 ‘SAUVEGARDE 
1926 IF LEFT$(rep$,23) 
iiè 


1938 PRINT:FRINT'Nom de 1 etat du j > 


eu a sauvegarder  ...":STRINGS (5,8 
}3: INPUT rep#:1F LEN(rep$i;11 THEN 
PRINT"Un peu plus court S.V.F !‘:60 
TO 1036 
1649 PRINT"Appuyer sur REC et PLAY 
.."trep$="{"+rep$+". JEU":PRINT"Pat 
ientez un instant ...":SPEED KRITE 
i:OFENOUT rep$ 


AND rep$="E" THEN GOSU : 
.rep$i:iF az Ti 


#6 THEN ijo=sor(l UC 


FINV' THEN 16 + 


4 


3 "SAU" THEN Î EC 


04 


1656 FRINT #6, )10:RESTORE 1196 
iagé FOR 12i TD Ed:REAL 007: FRINT # 
5,0b$tob11:PRINT #9,001$:003::PRIMT 
#9.0biob3!:NEAT 

1676 FOR 12) TO 3iREAE li.dir: 
#5,sorii.diri:NET 
1889 FOR drazi TD nd: PRINT #7, 
a):NEXT 


Ai 






dridr 


T.ce 


1696 CLOSEOUT:FRINT "Sauvegarde term :E 


inee. ‘:G60T0 ébt 

114é ‘CHARGEMENT 

ilié IF LEFTS(reps, 335; "CHA* 
204 

1124 PRINT:FRINT 
eu à charger {STRING (GEI 
NEÛT rep$:IF LENirep$::11 THEN FRIN 
T'Ce n'est pas possible !":GOTC 14 
ê 


1136 PRINT'Apouver sur PLAY fire : 


p="!'arepg+", JEUT:FRINT'Fatientez 
un instant ...":OPENIN rep 
1146 INPUT #9,110:RESTURE 1194 


1156 FOR 1=i TO Z4:READ ob): INPUT # : 


$,ob$tobji:INFÜT #9,0ob3j$ ob: INFUT 
#7, 0b (ob j}:NEXT 

iiôë FOR i=i TO 3:REAE ji.dir: 
#5,sor(li,dirs:NEXT 


1176 FÜR dra=i T0 nd! INFUT #9.dridr : 


ai :NEXT 


1186 CLOSEIN: PRINT "Chargement termi BR 


ne.":G0TO 6 
1194 DATA 1,.3,4,8,8.16,17,17,185,21, 
22, 23,29,26,27,29,23,37,40, di, 45,45 


.46.31,14,3,31,4,23,4 


1200 IF LEFTS(rep$, 3) €®VER" THEN 1 
Ti 


1216 PRINT" Je comprends les verbes 
suivants: ":FRINT 

1226 RESTORE 2469:F0R i=i TO nv:READ 
mot$: PRINT mot$,:NEXT: PRINT: 5070 6 

Bÿ 

1236 IF LEFT$irept,ïi:; 

254 

1246 INF 2.20:6070 566 
1256 IF LEFT (repé, 3); 
286 

1266 MODE 1:FRINT'"L auteur vous sou 
haite plus de reussite ia prochaine 
fois !':PRINT: PRINT: PRINT: END 

1279 ‘ENTRÉES 


"INS" THEN ! 


"FIN" THEN i 


1286 ion=LENtrep$)i:FOR esp=i T0 ion : 


:co$=MID$ (rep$,esp,1}:1F co" ST 
HEN NEXT 

1296 rve$=LEFT$ (rep$, 4): le=]on-esp: 
IF letÿ THEN 1310 

1396 mot$=RIGHT$ (rep$, Le) :rob$=LEFT 
$(mot$,4) 

1316 FOR ver=i TD nv:IF rvet=ver$iv 
er) THEN 1339 


PRINT :E 


THEN à 


“Nom de i etat qu à 


M 
Et 


INPUT BF 


#Et. 


ALL 


32 


?EM 


>FU 
ED 


U8 


Les] 


AW 


ne 


>PX 


6 


1326 NEXT:PRINT'Je ne comprends pas 
le verbe.":G0T0 686 
1336 FOR o=i TO no:IF rob$=obj$(o) 
THEN 1350 
1346 NEXT:PRINT"Je ne comprends pas 
l'objet !":G0T0 68ÿ 
1350 IF o=47 AND 1jo=22 THEN 0o=48 
1360 IF o=28 AND LEN(mot$)<{7 AND 1j 
o=22 THEN 0=49 
1370 IF o=46 AND 1jo=22 THEN 0=96 
1386 IF o=11 AND 1jo=13 THEN PRINT" 
Il y a deux lits,mettez un S !“:G0T 
0 68ÿ 
1399 IF o=3i AND 1jo=5 THEN PRINT'I 
ln'y a qu'un lit,ne mettez pas de 
S !":G0T0 680 
1496 IF o=i AND 1jo=i8 THEN o=358 
1419 IF o=15 AND ljo=8 THEN o=i9 
1426 IF o=15 AND 1jo=i4 THEN o=33 
1439 IF o=15 AND 1j0=23 THEN o=51 
1449 IF o=5 AND 1j0=7 THEN o=i6 
1459 IF o=5 AND 1jo=13 THEN 0=3%6 
1466 ON ver GOTD 1756,2036,2460, 244 
9,2700,3000,3070,3180,3236,3320,336 
0,3450,3526, 3606 
1470 ‘MORT 
1489 MODE 1:BO0RDER 5:FDR cod=i TO L 
EN (mor$)} 
1496 car=ASC(MID$ (mor$, cod, iii 
1560 IF car:b4 AND car:9i THEN IF c 
ar{78 THEN car=car+i3 ELSE car=car- 
13 
1516 IF car:96 AND car:123 THEN IF 
car<1i9 THEN car=car+i3 ELSE car=ca 
r-i5 
1529 PRINT CHR$ car}: :NEÂT 
1539 PRINT:FRINT' Triste fin :" 


154 ON so GOUSUE 3696,3716,3738.375 > 


0:FR pau=i TO 16900:NEXT 


1559 MODE O:PEN 3:LOCATE 6,12: PRINT : 


“VOUS ETES": LOCATE 8, 14: PRINT"MORT 
I"4PEN 1 

1564 MOVE 86,80: DRAW 125, 179, 11: DRA 
W 69,300: DRAW 200,250: DRAW 359,350: 
DRAW 409,260: DRAM 559,300: DRAM 486, 
180:DRAN 529,90: DRAN 360,150: DRAW 2 
86,80: DRAW 200,160: DRAW 89,84 


1570 RESTORE 1506:F0R mus=i TO 27:R : 


EAD h,d:SOUND 7,1.5#h,1.5#d:NEXT 


1589 DATA 239,25,190,12,239,12,319, 


25,319,25, 239, 25, 196, 12,239, 12,319, 
25,159,25,179,12,199,12,213, 12,239, 
12,253, 12, 239,12, 255, 12,239, 12,213, 
12,239,12,253, 12,284, 12,319,12,358, 
12,279,12,426, 12,478, 50 

1590 FOR pau=i TO Sÿd:NEXT 


LM 


KL 


LH 


1] 
?PT 


IC 
>JZ 


KE 


2YY 
YA 
AVE 
YF 
KZ 
YU 
LE 


+ 


3YE 
#EM 


2YF 


TD 


#WT 


TR 


:VA 


1666 MODE 1:FRINT'Votre aventure se :CF 


termine mal,a vous de recommencer. 
“se PRINT 


181% INPUT "Voulez-vous essayer enc 
ore une fois ":rep$ 

1620 IF UPPERS (LEFTS$(rep$,1))="0" T 
HEN INK 2,26:RUN ELSE 1266 

1639 “REUSSITE 

1649 MODE 1:BORDER 16:FRINT"Vous se 

ntez votre epieu s'enfoncer dans le 
coeur de votre ancetre,celui-ci a 

maintenant trouve le repos etern 

el gracea vous !* 

1656 PRINT:PRINT'Felicitation !" 
1666 FOR pau=i TO 19090:NEXT 

1670 MODE 9:LOCATE 7,12:PEN 3:PRINT 
"B"s:PEN 7:PRINT'R"::FEN B:PRINT'"A" 
32PEN 9:PRINT"V"::PEN 11: PRINT'O *; 
PEN 13: PRINT"! ":PEN 1 

1686 MOVE 109,150:DRAW 196,280, 19:D 
RAW 596,286: DRAW 506,156: DRAW 166,1 

90: MOVE 96,148:DRAW 96, 282, 12: DRAH 
964,282: DRAW 564,148: DRAH Gé, 148 
1696 FOR a=i TO 2:RESTURE 1766:FOR 
aus=i TO 19:READ h,d:SOUND 7,h,diNE 
XT:READ h,d:SOUND 7,h,a#*d:NEXT 

1706 DATA 3586, 12,284,12,2B4,12,179, 
12,239,25,379,12,319,12,319,12,253, 
12,478,25,379,12,319,12,319,12,1964, 
12,239,25,358, 12,284,12,284,12,179, 
12,358,25 

1716 FOR pau=1 TO Séb9:NEXT 

1726 MODE 1:FRINT'"Vous avez resolu 
l epreuve qui vous etait impose 
e et vous pouvez maintenant vous la 

ncer dans une autre aventure. " 


1734 PRINT:PRINT: PRINT: PRINT: FRINT: : 


END 

1744 ‘ANALYSE 

1754 IF obloi<:ljo AND oblo)£:-1 TH 
EN FRINT'II n'y a rien de la sorte 
ici !":GOTO 686 


1766 IF o=3 AND NOT dri3) THEN mor$ :X 


="Yr mbzovr 1bhf rtbetr ninag 2rzr 
gr chhibve v'hotreire !":G60T0 Ï 

486 

1776 IF o=3 AND dri3i THEN FRINT'Vo 

us remarquez seulement son corps 

repugnant :":G0T0 686 

1789 IF o=4 THEN FRINT"Ce cadavre a 
un teint livide,mais il estmiracui 

eusement bien conserve !":G0TD 686 


1796 IF o=6 AND NOT drii) THEN FRIN > 


T"Il y a ecrit:un homme a tue ie ch 
ef d'une secte pour etablir son 
propre pouvoir,en guise de con 
damnation 1l a ete emmure vivant 
pour l'eternite dans la cave de ce 
tte maison.":GO0TD 686 

1894 IF o=6 AND driii THEN PRINT"Le 
s dechirures rendent illisibles ies 

inscriptions.":60T0 684 


?PN 


?ET 


3YC 
?FÀ 


La 


?6K 
WT 
PR 


AV 


?FJ 


AU 


3YE 
2Y4 


AT 


AH 


LÀ 


1816 IF o=19 THEN FRINT"Sur un parc 
henin est ecrit:celui qui delivr 
era l'homme emqure de sa m 
alediction sera glorifie a jamais ! 
“":60T0 68à 

1820 IF o=12 THEN PRINT'Les expiosi 
fs que vous apercevez sous lelit ri 
squent d'exploser.":G60T0 6Bÿ 


1834 IF o=15 AND NOT dr(4) AND ob(? : 


5)€>-1 THEN PRINT'Elle est fermee a 
cle.":G0T0 689 

1849 IF o=i6 THEN FRINT"Ce tableau 

est accroche curieusement !":60T0 6 

89 

1856 IF o=i8 AND dri5)=& THEN PRINT 
“Il est plutot effraye par votre 

irruption !":G60T0 686 

1860 IF o=18 AND dr(5i=-i THEN PRIN 
T"Ce nain ne possede rien d'interes 

sant !":G0T0 684 

1876 IF o=18 AND dri5)=1 THEN PRINT 
"Teil qu'il est,il ne pourra pas vou 

5 nuire !":G0T0 684 

188% IF 0o=26 AND NOT dr(é) THEN PRI 

NT'Vous voyez un cadenas fermant le 
coftre.":ob(23;=9:G0T0 684 


AY 


PH 


?LF 


2YV 


?EE 


:QE 


IP 


189% IF o=22 THEN PRINT'Elles daten :BY 


t du debut du siecle !":G0TO 68û 
1969 IF o=24 THEN PRINT"'I] possede 
quelques tiroirs.":ob(26)=16:60T0 & 
8e 

1914 IF o=27 AND NOT dr(8} THEN FAI 
NT'La fiole contient un liquide pou 
rpre.":G0T0 6Bà 

1926 IF o=36 AND (ob(29)=13 OR obiz 
9=0) THEN PRINT"Un passe-partout e 
st pose dessus. ":ob(29)=13:G0T0 6Bÿ 


1939 IF o=32 
g gr cyhf cerf y nezher.fba unyyro 
negr ibhf genapur yn grgr !":60TO i 
486 

1946 IF o=34 THEN PRINT'Que voulez- 
vous y voir ?":G60TD 686 


1954 IF o=37 AND dr(9) THEN FRINT'L : 


a gourde est remplie d'eau claire." 

:G0T0 680 

1968 IF 0o=39 THEN FRINT'On peut y e 

ntrer facilement.":60T0 684 

1976 IF 0=43 AND NOT drilé; THEN PR 

INT'I1 y a une corde accrochee a la 
manivelle du puits.":0bi4s 

)=26:G60T0 686 

1984 IF o=43 AND dr(ië) THEN so=:m 

or$="Ra ibhf crapunag nh grffhf gr 

yn anetryyr,ibhf tyvifrm rq 

gbzorm nh sbag qh chvgf !":60T0 i48 

(1) 

1999 IF o=44 THEN FRINT"I] n'a pas 


THEN mor$="ka ertneqna : 


#HW 


?EJ 


HA 


> 


LV 


?XH 


UF 
29 


RTE Te 


Es 


D'accord. 
D'accord. 


Ce tableau 


2866 NEXT:IF nbr:35 THEN PRINT Impo 2 


ssible,vous etes deja assez 
I": GOTO 686 


cnarge 


2696 IF o=5 AND NOT driïi THEN mor ; 


="Ioh+t 2bheerm rtbetr 
a nccerpyr env 

ÔTO 1480 

2106 IF o=3 AND driii 

e voulez-vous faire d 

:GOTO égé 

2119 IF o=4 THEN FRINT'Que vouiez-v 

ous en faire *!":G0TD 686 

2126 IF o=é AND NOT dr(i THEN FRIN 

T'Vous dechirez la tapisserie en vo 

ulant la decrocher du mur.":àr(i}= 

-i:obfié}="une tapisserie dechiree" 

:60T0 éBé 

2158 IF o=6 AND drii} THEN FRINT"Vo 

us voulez la dechirer davantage ?": 

GOTO 686 

2149 IF o=8 THEN FRINT'D'accord.":0 

b(8)=-{:G0T0 686 


pne vr mbiovr 
zrag ont l15 


THEN PRINT"QL 
un cadavre ** 


2159 IF o=9 THEN FRINT"Vous ne ss 


ez les prendre tous et iis ne sont 
quere interessants !":O0TD0 680 


2160 IF o=14 THEN PRINT'D'accord.": 


30 





l'air tres solide. ":G0T0 456 

2606 IF 0=49 THEN FRINT'C est un pe 24 

tit chemin pierreux. ‘16010 Be 

2016 IF o=52 THEN FRINT'Le jierre © 4RE 

ouvre la facade, “:G0TO &ët 

2626 PRINT‘ Vous ne vovez rien de 56 :GE 

eciai,":G010 ëëé 

2834 IF obloii:iio THEN IF ob:o1=-1 #5 
Le FRINT'Vous possedez deia cela 

26070 86 ELSE PRINT‘ nova 

en de tei ic1 !":6010 eve 

2644 ‘ENCOMBREMENT 34] 

2654 IF pelor=à THEN 2454 :RY 

2066 nbr=peioi:FÜR i=i T5 no #4+ 

247 IF obiii=-{ THEN nor=nortpeiis CR 


>U6 


FD 


>Tu 


TE 


HT 


terni, 
T3 


est accroche curieusement ! 


ENT 


158 IF o=ii THEN 50=2: 
Safe bag rkcybfr ybefdhr ibnf y 
rt nirm gühour ::50T 





TD idBé 
<iëé IF o=13 THEN FRINT'D accord, ": 
obil3:=-j:G0T0 688 


2194 ÏF o=i6 THEN 50o=Z:mor$="hs qgrp :J 


ebpunag yr gnoyrnh.har genccr f 
‘bhier fbhf 1b5 cvrgf ra iohf snvar 
#  har ouhar gr 15 zrgert :*:G0TD 
CET) 

2264 IF o=17 THEN FRINT'D accord. ‘: 
ob(i7i=-i:ob$ii7i="un jeu d echecs" 
:HOTD 468ù 


2216 ÏF o=16 THEN FRINT'IL est peti : 


t.mais quand meme :‘:5010 686 

2226 IF o=21 THEN FRINT"D accord. ‘: 
(21:=-j:60T0 88é 

IF 0=£2 THEN PRINT" accord, ‘: 

ob(22}=-{:607T0 686 

2344 IF 0=23 

NT'Imrossible.ii ferme le coffre. “: 

GÜTO 686 

2254 IF o=23 AND drié: 

‘accord. ":obi235i=-1:6070 686 

2266 IF o=25 THEN FRINT'D accord. ‘: 

cb(25)=-1:60T0 686 






2278 IF o=28 THEN FRINT'Impossible, ; 


ils sont fixes au 
aire i‘:6070 686 
2284 IF o=27 AND NOT driBi THEN FRI 
NT'En prenant ja fiole, vous ne pouy 
ez resister à boire son conten 


secret 


u et vous vous sentez alors flot 
ter dans l'espace !“:]j0=1 
NT {RND#23)+1:ob(27)=-1:0ob#$i271="une 


tiole vide‘ 
2294 IF o=27 
8)=-1:G0SUB 3746:6010 680 
2366 IF o=27 AND drigi THEN FRINT"D 
‘accord.":ob(27;=-1:G0T0 68ÿ 
2516 IF o=29 THEN FRINT"D accord. ": 


mors tiré pe cf 


THEN PRINT'D k 


AND NOT dr(8i THEN dri 3 


#NT 


AND NOT dribi THEN FRI :GN 


#KP 


LV 


ob(29}=-i:E0TO 686 





2556 IF o=14 THEN FRINT'Gue vouiez- KL 
vous en taire *'":G0T0 66 

2534 IF 0=32 THEN mor$="ka ceranag ‘EH 
yÿ'nezher, ba unyvronegr gbzorrg ibh 

# pbhcr ra grhk !":GOTO i48é 

5346 IF 0=34 THEN FRINT'Vous piaisa :üT 
ntez.j espere *":G0T0 ébû 

2356 IF 0o=37 OR o=46 Of o=4i Oh o=4 :EM 
3 THEN PRINT"D accord. “:obio:=-i:G60 

T0 686 

Féé IF 0=45 AND NOT gril: THEN FR :XE 
INT'Impossible,ia corde est attache 
e.":G0T0 £8é 

2374 IF 0245 AND driiôi THEN PRINT" 417 
D'accord.":0b(45i=-1:G0T0 856 

2386 IF 075 OR o=7 OR o=ii OR o=i4 :Kù 
OR o=28 OR o=ë4 OR o=3j DR o=44 THE 

N FRINT"Vous n etes pas 51 tort l°: 
GOTD 54 

2396 FRINT'Reflechissez à ce que vo :Mi 
us dites ‘":G0T0 654 

2466 IF obto)s:-1 THEN PRINT" Vous n BE 
e possedez encore rien de tel “1:50 

TO éBù 

241 IF o=i7 THEN ob${i7i="un jeu à :Fû 
“echecs sur le 50] 

2424 IF o=51 THEN driidi=à ?TE 
243% obto)=11o:FRINT"D' accord. ":60T 2LH 
D ébÿ 

2448 IF obioi::lio AND obioii:-1 TH :MT 
EN PRINT'II n y a rien de tei 1c1.* 
:50TO ébé 

2456 IF o=7 THEN FRINT'D accord, *:5 ML 
OTO 686 

246% IF o=i4 AND NOT dridi THEN PRI RE 
NT°D' accord. ":dri2=-jiob(i5i=6:50S 

UE 3760:G070 ét 

2478 IF o=i4 AND driii THEN PRINT'L :ER 
‘armoire est deja ouverte !“:G070 à 

84 

2486 IF o=15 THEN PRINT'Elle est de :KE 
ja ouverte !":GOTO 68t 

2496 IF o=19 THEN FRINT'Elle est de :kE 


ja ouverte !“:G607T0 £gé 


2566 IF o=26 AND driiz) THEN FRINT' DE 


Le coftre est deja ouvert ‘":G0TÙ & 
ga 


25iè 1F o=26 AND NOT drii£) AND dri *PE 


6)=4 THEN FRINT'Impossible.il est f 
erme par quelque chose. ":G60T0 & 
84 

2526 IF o=26 AND NOT dr(ii THEN FR 
INT"D'accord.":dr(12i=-j:ob(21i=9:0 
b(22)=9:GOSUB 3766:G0T0 686 

2530 IF o=23 AND drib) THEN PRINT'L 
e cadenas est deja ouvert !":G0TD à 
84 

254% IF a=23 AND NOT driéi AND ob(z 


JM 


#EÀ 


KA 


G)=-{1 THEN PRINT"D'accord.":dr{éi=- 
isob$(23)="un cadenas ouvert":60TD 
éaù 


2556 IF o=23 AND NOT driéi THEN PRI : 


NT'Avec quoi ?!":G0T0 689 


2568 IF o=24 THEN FRINT"D'accord.": à 


G6OTO 68à 


2574 IF o=26 AND dr(7) THEN FRINT'I : 


15 sont deja ouverts !":60TD 684 


2584 IF o=26 AND NOT dr(7) THEN PRI ; 


NT'D'accord.":dr(7)=-1:0b(25)=18:60 
TO 686 


2596 IF o=27 THEN FRINT"D'accord.": : 


GOTO 68 
2606 IF 0=353 


lle est deja ouverte !":G0TO 68 


2616 IF 0=33 AND NOT dr(4) AND ob{2 : 


9)=-1 THEN PRINT"D'accord."“:dr(4)=- 
1:0b$(35)="une porte ouverte au sud 
“ssor (14,2)=4:GOSUE 3760:G07T0 690 

2626 IF o=33 
NT'Avec quoi *!":G60T0 68ÿ 


2636 IF o=37 THEN PRINT'D accord. ": : 


GOTO 68ÿ 

2646 IF o=4b AND drii3} THEN PRINT" 
La grille est deja ouverte !“:G0TD 
686 

2654 IF o=46 AND NOT drii3} THEN FR 
INT“D'accord.":dr(13i=-1:ob$t48i="] 
a grille d'entree ouverte":sor (21,4 
}=22:60T0 6ët 


£bbô IF 0=56 THEN FRINT'La grille e : 


st deja ouverte !“:6070 éBà 


2674 IF o=51 AND dr(1i) THEN PRINT" :X 


Elle est deja ouverte !":50TD 686 


2684 IF o=51 AND NOT dr(ii) THEN FR : 


INT'D'accord.":driiii=-i:ob$(5ii="] 

a porte d'entree ouverte":sor{23,4;) 
=8:G0SUB 3760:G0T0 684 

2694 PRINT'Je ne comprends pas ce q 
ue tu veux dire.":6010 68ÿ 

276 IF obloi£:1j0 AND obioi£:-1 TH 
EN PRINT'"I] n'y a rien de tel ici.” 
:607T0 680 

2716 IF o=7 THEN FRINT'La cuisinier 

e ne fonctionne plus depuis bien lo 
natemps deja ‘":6070 gt 

2726 IF o=8 AND ob(8)=1jo THEN FRIN 
T'Vous ne possedez pas d'epieu.":6Ù 

TO é6Bÿ 

2736 IF o=8 AND obi4j=6 AND NOT dri 

3) AND ijo=i THEN FRINT"Votre epieu 
transperce ie zombie qui meurt 

sur le coup.":0b$(3i="un zombie mor 
t'idr(3)c-1:G0TO 686 


2749 IF 0o=8 AND ob{4)=i AND lio=i T 


- HEN GOTO 1646 
2756 IF o=ii THEN FRINT'Ce n'est pa 
5 le moment de dormir :":60T0 6B6 


AND dr(4) THEN FRINT'E 


AND NOT dri4i THEN FRI :ü 


FU 


#HX 


2X] 


MR 


ED 


2MY 


:JN 


?EB 


2766 IF o=12 THEN FRINT"Vous ne pos ?CH 


sedez pas d'expiosifs.":G0T0 686 
2779 IF o=13 AND ob(i3}=1j0 THEN FR 
INT" Vous n'avez pas de masse. ":6070 
68ÿ 
2784 IF 0=13 AND Liot:i THEN 2986 
2796 IF o=i3 AND obi4i=& AND dr (5) 
THEN FRINT'Le mur ne resiste guere 
sous les assautsde votre masse et v 
ous decouvrez un homme emmure d 
epuis longtemps qui n'est autre que 
votre ancetre !":ob$i1)="un tas de 
pierre":ob3j$(1)="TAS" 
2889 IF o=13 AND ob(4i=6 AND dr iii 
THEN ob(4i=1:G0SUE 3749:6070 6Bô 
2816 IF o=13 AND NOT dri3} THEN mor 
$="Yr mbzovr ibhf ghr fnhintrzrag r 
a iblnagyr zhe f'rssbagere fbhf ibf 
pbhcf !":G0TO 1489 


2826 IF o=i7 THEN PRINT'Ce n'est pa : 


s le moment de jouer aux echecs 
"GOT 686 

2839 IF o=21 AND obi2i)=]1jo THEN FR 

INT'Vous ne possedez pas de casque. 

“:60T0 68ÿ 


>6ŸY 


AL) 


>kK 


3H 


>UP 


2846 IF o=21 AND NÔT dr(i4i THEN FR :GH 


INT'Votre tete est desormais bien p 
rotegee par ce casque.":dr(idi=-]: 
GOTO éBé 


2854 IF o=21 AND drii4) THEN PRINT" : 


Le casque est deja sur votre tete ! 
":G60T0 6ëBû 

266% IF o=27 AND obiZ7)=1j0 THEN FR 
INT'Vous n avez pas de tiole.":G6010 
CET) 


2674 IF o=28 THEN PRINT'Vous n'avez : 


pas de bois !'“:G0TO 686 


2886 IF o=51 THEN FRINT'Ils sont tr :E4 


op petits pour vous !":G0TO &b4 


289% IF o=35 THEN FRINT'Ii nv a pa : 


5 d'eau ‘":G0TO 654 


2966 IF o=46 AND obidäi=ljo THEN FR :Ÿ 


INT'Vous ne possedez pas de secateu 
r.":G60T0 686 

2919 IF o=4% AND NOT driiéi AND ijo 
=20 THEN FRINT'Le secateur coupe fa 
cilement la corde. ":dr(i6i=-j:ob$t4 
si="une corde detachee":G60TD é8ë 


2926 IF o=41 AND ob(4ii=1jo THEN FR 


INT'Vous n'avez pas de rateau t":üÙ 
TO 686 


2938 IF o=42 AND ob(42)=1j0 THEN FR : 


INT'Vous n'avez pas de pelie.":G0TD 
686 

2946 IF o=44 THEN FRINT"Vous avez a 
utre chose a faire que de rever 

sur un banc :":G0TG 68% 

2954 IF o=45 AND obi45i=]jo THEN FK 
INT'Vous n'avez pas de corde !“:G60ÛT 


>6 


:DY 


3xL 


#HN 


0 686 

2966 IF 0=45 AND dr(5i=-1 AND 1jo=B 
THEN FRINT'Vous attachez rapidemen 
t le nain.“:dr(5)=1:0b$(18)="un nai 
n ligote":ob(45}=0:G60TD 6Bû 

297% IF o0=45 AND dr(5)=6 AND Ljo=8 
THEN mor$="Iblnag dhr ibhf ibhyrm y 
r yvtbgre,yr  anva rasbapr fba cb 
vtaneg gnaf ibger  synap !":G60TD 
1486 


2986 IF o=8 OR 0=13 OR o=24 OR 0727 : 


OR 0=48 OR o=4i OR o=42 OK 0=45 TH 
EN FRINT'Pour quoi faire *!":5070 & 
84 


2996 FRINT'Je ne comprends pas ce q 


ue tu veux dire.":G0T0 68% 


3606 IF obloi£:1jo AND obioii:-1 TH à) 


EN FRINT"Il n'y a rien de la sorte 
ici.":6070 68 


3618 IF o=1 AND ob(i3i£:-1 AND ob(4 : 


}=ÿ THEN FRINT'Avec quoi ?!":G0TO & 
Bû 

3426 IF o=1 BND driïi AND obi4i=8 T 
HEN PRINT'Le mur tombe rapidement s 
ous jes chocs de votre masse et vo 
us decouvrez un homme emmure de 
puis longtemps qui n'est autre que 
votre ancetre j‘:ob$(l)="un tas de 
pierre":obj$(ii="TAS" 


3639 IF o=1 AND dr(3) AND obi4)=6 T : 


HEN ob(4}=1:G0SUE 3745:G60T0 6Bû 
3644 IF o=1 AND NOT dr(3} AND obid) 
=4 THEN mor$="Yr mbzovr ibhf ghr ni 
rp fnhintrevr Fa  ibinag vr zhe gr 
gehvg one vrf phhct gr zntfr !":60 
TÜ 1486 

3956 IF 0=38 THEN FRINT'Le mur est 
trop solide pour que vous  puissi 
ez le detruire i":GOTD 656 


3664 FRINT'Je ne comprends pas ce q À 


ue tu veux dire. ":50T0 684 


3678 IF obio)£*lio AND obioiis-1 TH : 


EN PRINT"'I] n'y a rien de tel ic1 : 
"6070 48ù 

2686 IF o=i4 OR o=5ù OR o=26 THEN F 
RINT'Que voulez-vous donc mettre de 
dans *":60T0 666 

3496 IF 0o=27 AND ob(i7)=i10 THEN FR 
INT"Vous n avez pas de fiole.":60TÙ 
ë8ô 


3166 IF o=27 AND NOT drigi THEN FRI : 


NT'Elle est deja pleine !":GOTC 68û 


3116 IF 0=27 AND drigi THEN FRINT'A à 


vec quoi ?!":60T0 686 

3126 IF o=35 THEN PRINT'II n'y a pa 
s d'eau pour ia remplir.":G0TO 686 

3136 IF o=57 AND obi37)=1j0 THEN FR 
INT'Vous ne possedez pas de gourde 


?QU 


BK 


FH 


>J6 


:FY 


EE 


?EÙ 


>DF 


VE 


31 


!":60TO 680 


3149 IF o=37 AND dr(9) THEN PRINT'L : 


a gourde est deja remplie !":G0TO 6 
80 


3156 IF o=37 AND NOT dr(9) AND 1jo= : 


17 THEN PRINT'Elle est maintenant p 
leine d'eau.":dr(9)=-1:60T0 680 


3169 IF o=37 AND NOT dr(9) THEN PRI : 


NT'Avec quoi :!":60T0 684 


3179 PRINT'Je ne comprends pas ce q ? 


ue tu veux dire.":60T0 686 


3180 IF ob(o){+-1 THEN PRINT'Vous n : 


‘avez rien de la sorte !":607T0 686 


3199 IF o=27 THEN FRINT'La fiole es ?C\ 


t vide !":G60T0 684 


3209 IF o=37 AND NOT dr(9) THEN FAI : 


NT'La gourde est vide !":G60TO 686 


3219 IF 0=37 AND dr(9) THEN mor$="] : 


bhf gebhirm dhr y'‘rnh rfq obaar,znv 
$  ibhf rgrf cevf fbhanva cne art 
pbaihyfvbaf ivbyragrf i":5 
OTO 1484 
3226 FRINT'Je ne comprends pas ce q 
ue tu veux dire !":G0TO 686 
3234 IF ob(o)£;ljo AND obio)<:-1 TH 
EN PRINT'II n'v a rien de tel ici." 
:G0T0 68ÿ 


3249 IF o=5 AND dri3) THEN PRINT'II : 


est deja mort !":G0T0 6Bé 
3256 IF o=3 AND NOT dr(3) AND obiëi 
=-{ THEN FRINT'Le zombie meurt, tran 
sperce par votre epieu.":dr(3}=- 
{:ob$(3)="un zombie mort":6010 684 


3264 IF o=3 AND NOT dri3i THEN PRIN : 


m 


T'Avec quoi :!":G60T0 686 
3276 IF o=4 AND ob(8)=-1 THEN GOTD 
1646 


3264 IF o=4 THEN FRINT"Avec quoi ?i :ÿ 


“:GOT0 686 


3296 IF o=i8 AND drisi=à THEN FRINT : 


= 


“Avec quoi :!":50TD 686 


3309 IF o=18 THEN FRINT'Fourquoi vo : 


ulez-vous le tuer :*:G0T0 6Bà 


331 PRINT'Je ne comprends pas ce a 
ue fu veux dire !":G0T0 686 


332% IF obioi<:1jo AND oblo):5-i TH ;v 


EN FRINT'IL n y a rien de ja sorte 
ici !":6070 686 


ÿDE 


MG 


ÉE 


JR 


3DE 


3334 IF o=7 THEN FRINT'Vous ne lise :Ek. 


z rien d'interessant.":6010 686 


3346 IF o=16 THEN FRINT "Sur un parc à 


hemin, vous lisez:celui qui delivr 

era l'homme emmure de 5a m 

alediction sera glorifie a jamais 
32 


“:607T0 686 

3350 PRINT"Je ne comprends pas ce q 
ue tu veux dire.":60T0 686 

3368 IF oblo)<>1jo AND ob(o)£>-1 TH 
EN PRINT"I1 n'y a rien de tel ici : 
“:GOTO 689 


3370 IF o=3 AND ob(45){>-1 THEN PRI > 


NT'Avec quoi ?!":G0TO 680 


NT 


3380 IF o=3 AND dr(3) THEN PRINT"Fo >Lü 


ur quoi faire *!":G0T0 689 


3396 IF o=5 AND NOT dr(3i THEN mor$ : 


="Yr mbzovr rgnag ybva gr fr ynvffr 
e snver,vy ibhf neenpur yn grq 
r !":607T0 1489 


3406 IF o=4 THEN PRINT'Avec quoi ?! : 


":G0TO 68ÿ 


3416 IF o=18 AND ob(45}<>-1 THEN PR HR 


INT'fvec quoi *!":60T0 68 


3426 IF o=18 AND drisi=-1 THEN FRIN : 


T'Vous attachez facilement je nain. 
“dr (Si=i:ob$(18)="un nain ligote": 
ob(45)=6:G0TO 68ÿ 

3436 IF o=18 AND dr(5i=6 THEN mor$= 
“Yr anva a‘rgnag cnf q'nppbeg,vy ib 
hf  genafcrepr gr fba chvtanea !" 
:60T0 1484 

3446 PRINT'Je ne comprends pas ce q 
ue tu veux dire !":G0T0 684 
3456 IF obloi<;ljo AND obio)£;-i TH 
EN PRINT'II n'y a rien de tel ici." 
:GOTD 684 


3466 IF o=45 AND obi48i£;-] THEN FR : 


INT'Avec quoi ?'":60T0 686 


3476 IF o=45 AND dr(i6) THEN PRINT" : 


Pourquoi voulez-vous la couper en 
plusieurs morceaux *":G60T0 6Eÿ 


3486 IF o=45 AND NOT driié} THEN FR 
INT'Apres l'avoir sectionnee, vous a 
vez a disposition une jonque cor 
de.":drti6)=-1:0b$(45i="une corde à 
etachee":60T0 686 


2ME 


DJ 


2MV 


AV 


3496 IF o=47 THEN FRINT'Avec quoi © RE 


!":GOTO 686 


2506 IF o=48 THEN PRINT'Avec quoi ? : 


l*:GOTO 689 


3514 PRINT"Je ne comprends pas ce q > 


ue tu veux dire, ":60T0 ë686 


2529 IF obioi£:lio AND obtoii>-1 TH 


EN PRINT"'I1 n'y a rien de ia sorte 
ici !":60T0 680 


3556 IF o=21 AND obi21)=1jo THEN FR :E 


INT'"Vous n'avez pas de casque !“:GÙ 
TD 686 

3546 IF o=21 AND driig) THEN FRINT" 
Il est deja sur votre tete :":G0TD 
ébÿ 

355% IF o=21 AND NOT dr(id} THEN FR 
INT'Desormais, votre tete est bien p 


FX 


AE 


rotegee.":dr(14)=-1:60TD 684 


3566 IF o=23 AND ob(23)=1j0 THEN FR : 


INT"Vous n'avez pas de cadenas. “:60 
TO 68ÿ 


3574 IF o=23 THEN PRINT'Ou ca *!":5 :K 


OTO 669 . 


3586 IF o=32 THEN PRINT'L'armure es : 


t trop grande pour vous !":G0TD 686 


3596 PRINT"Je ne comprends pas ce q »X 


ue tu veux dire.":G0TD 684 

3696 IF obio}<:1jo AND obloi£:-1 TH 
EN PRINT'II n'y a rien de la sorte 

ici.":60T0 686 

3619 IF o=3 AND dr(3) THEN PRINT"Vo 
us voulez assommer un mort ?":60T0 
6eè 


3626 IF o=3 AND NOT dr) THEN nor$ : 


="Yr mbzovr a'n evra fragv,vy n iv 
r snvg gr ibhf ghre !‘:G0TO 1480 


2636 IF o=4 THEN FRINT'Ce n'est pas : 


la peine, il est inoften 


sif !“:G0T0 68 


364% IF o=18 AND drigi=i THEN FRINT ‘Ca 


“Fas besoin, il est ligote.":G010 66 
9 

365% IF o=18 AND driSi=-i1 THEN FRIN 
T"I1 est deja assomme :":60T0 684 
3666 IF 0o=18 AND dr(5)=à THEN FRINT 
“"D'accord.":dr(5i=-i:ob#(i8)="un na 
in assomme":G60TD 68à 


3676 FRINT'Je ne comprends pas ce a i 


ue tu veux dire.":G0T0 686 
3686 ‘BRUITAGE 


3696 ENT -1,10,-3,1,14,1,1,6,-2,1:5 


OUND 2,306,106,7,4,1:FDR z=1 TO 256 
OENEXT:ENV 1,100,19,26:ENT 1,58, 10, 
28: S0UND 2, 106,450,4, 1, 1: RETURN 


370% FOR n=i TO 7:SQUND 2,339,5ü,n: Vi 


NEXT:FOR n=6 TO 1 STEF -1:SOUND £,5 
239,90,n:NEXT: RETURN 

3716 SOUND 2.4,160,7,0,6, 1: RETURN 
3720 FOR j=1 TO 5:FOR n=496 T0 150 
STEF -15:SOUND Z,n,3,7:NEXT:NEXT:RE 
TURN 


3736 FOR a=1 TO Z6:S0UND 2,9,16,7,8 


9, INT (RND#16) :NEXT : RETURN 


3746 FOR n=1 TO 4:FOR j=7 TO 1 STEP à 


—L:SOUND 2,6,16,3,8,6, 15:NEXT:NEXT 
RETURN 

3756 ENV 1,7,-2,B0:F0R a=566 TO 306 
STEP -i:SOUND 2,a,3,5:NEXT:SOUND 2 
19,0,0,1,8,16:RETURN 


3766 ENT 1,8,-1,3,8,1,3:ENV 1,15,-1 EU 


,19:S0UND 2,8,56,15, 1, 1:RETURN 

3776 ‘GRAPHISME 

3780 RESTORE 3780:RETURN: DATA 43,10 
à, 146, 40,98, 0, 72,P238,-170, -49, 98,0 
,72,F-198,-72,198,9,P-108,0,0,72,P1 


#XN 


2JY 


mo 
= 


M 


FA 


#VL 


Ù 


PE 
>RA 


0,-72,0,72,P88,-72,0,72,P-8b,-68, 84 
.0,P-84,6,84,0,P-84,10,84,0,F-84,6, 
84,0,P-B4,10,84,0,F-B4,6,84,0,P-B4, 
19,84,0,P-84,6,84,0,P-84, 19,84,0,P- 
176,-118 


3790 DATA 19,22,100,0,10,-22,-120,6 


.0,-8,120,0,0,8,P-110,-10,0,-29, 106 
,9,9, 22 

1800 RESTORE 3800:RETURN: DATA 36.2, 
244,474,0,P-358, 38,0, 24,44, 0,0,-24, 
-44,0,P2,2,0, 20,46, 0,0, -20.-45,0,F4 
0,-80, 19,30, 164,0,-10,-30.-160,0,0, 
-10,160,8,9,19,PD,-19, 10, 3,9, 19,F- 
160,-40,0,-30, 10,0, 0,30,P,-30,4, 19 


LS: f) 


.4,20,F116.0,0,-39,16,0,0,30,F4,.-10 
,.4,16,9,29 

3810 RESTORE 2810:RETURN: DATA 26.84 
.144,49,196,0,72,P0,-72, 106,6, F69,6 
.78,0,P40,-100,-40,100,0,72,F-138, - 
92,0,60,66,4,0,-66,-68,0,F4,4,4,36, 
52,0,0.-36,-52,0,F16,34,20,0,.F-26,2 
.20,0,P-36,14,6,6,52,8,9,-6,-52,0,P 
b,2,0,2,P19,-2,0,2,P20,-2,0,2,P18.- 
2,6,2 

3826 RESTORE 2820:RETURN: DATA 94.16 
4,146, 40,78, 126,0,F-29,0,0,92,P29,0 
4,112, 68,20,0,92,F-4,0,0,-34,F4.8 
.4,2,F-60,50,69,20,F-66,-76.14,.4,6, 
19,56, 16,F-56,-22,2,2,4,4,-2,-2.0,- 
4, PS6. “48. 24,64,4 12 ps te EF F 


St Sa æn. 


ETS 


3836 DATA F-14,-66,38,0û.P-25,-42,6 DE 


.“66,P12,80,4,-68.FPi4, 06,6, -62,F1ie, 
6B,4,-42,F16,45,0,-14,F-58,-162,74, 
126,F-74,-152,76.132,F-64,-100,6,-6 
4,F14,88.0.-64.P19,82,0.-66.P12,66, 
&,-64,F10,84,0.-62,P14,86.4,-63,Fi4 
ôb,#,-40,.P14,46,6,-24,P-54,-140, 16 
4,170 


3846 DATA F-J6,-174, 100, 170.F-36,.-i ;] 


46,4,-24,Pi6,52,4.-46,F16,64,4,-46, 
F14.64,4,-46,P18,76,64,-d60, F4. 64.6, 
-46,F12,66.0,-44,F14,58,0,-42,F14,4 
2,6,-24,F-84,-146,94,16d,F-30,-164, 
96,158,F4,-80,64,92 


:TW 


-D1 


Hi 


3654 RESTORE S696:RETURNI DATA 114,5 M5 






6,146,44,118,6,52,P4,-52,70,6,F2 
-115,-du, L16,0,52,P4,-51,-78,.0 
.-2,0,32,14,0,8,-19,786,0,6,10, 16,6, 
d,-22,-38.0,F4,12,4,4.14.u,-4,-à,77 
B,4,-4,4,10,6,4,-4,F-84,4.0, io 78, 
ÿ,4,10,8-74,-74,04, 12, 75,4,4, 117 
.4,F4,19 

ès DATA 4,-6,7 








F4,0,0,6,7-84.-i2, -7 


Hi 


2,-74,P32,74,-16,-84,P26,84,-12, -84 
,P22,84,-8,-84,F18, 84, -4,-B4,P22, 84 
,4,-84,P6, 84,8, -84,P2,84, 12, -B4,P-2 
84, 16,-84,P-6,84,22,-74,F-150,-24, 
û,29,14,0,0,-10,138,0,0,10,19,0,0,- 
20,158, 0,P9, 20, 4,4, 10,0,-4,-4,P138 
,0,-4,4 


3874 DATA 19,8,4,-4,P-144,4,0,-10,1 : 


30,9,0,19,P-134,-24,0,-12,19,0,6,12 
.P0,-12,4, à 0,8,P114,0,0,-12,19.6,0 
12 F-19,-12,-4,4,0,8,P- 74, 9,4,-14, 

38,4,4,14, É ya, -4,8,0,P-4,0,0,-6, PB 
,9,0,6,6,-6,0,6,F4,0,8,9,F-4,0,6,-6 


3886 RESTORE 38B0:RETURN: DATA 26,10 : 


9,146,40,78,0,92,P4,-92,86,0,P158, - 
78,-44,78,0,92,P-28,-92,38,0,P-118, 
-20,6,106,66,0,0,-100,-86,0,FD, 19,6 
0,0,F-46,0,0,90,F-10,-54,6,0,F-6, 2, 
6,0,P8,-2,6.0,F-6,2,6,0 
3894 RESTORE 3890:RETURN: DATA 66,84 
.146,49,98,6,72,P278,-1764,-44,98,9, 
72,P-238,-72,238,9,F-158, 36.0, 46,78 
,9.0,-40,-78,0,P4,4,0,32,70,6,0,-12 
.778,0,F0,16,16,8,14,-6,16,4,29,4,1 
4,-4,P-4,-126,0,6,-10,30,6,-6,14,-3 
0.46,0,6,6,-40,0,P-10,24, 40,0, 19, -7 
6,P-46,30 
3906 DATA 19,-30,F-0,36, 
30,16,-50,F-6,30,10,-30,F-6, 30, 14, - 
30,P-6,170,10,-36,P-6,34, 10. -30,P-6, 
39,10,-30,P-6,36,16,-30,P-46,26. 44, 
0,P-38,-4,4û,0,P-238,-4,46,0,P-46, -4 
.46,0,F-38,-4,46,6,P-38,-4,44,0,F-4 
9,-4,49,6 
3916 RESTORE 3910:RETURN: DATA 74,10 
0,1d6,66,78,0,92,F4,-92,64,-26,0, 11 
2,P4,-92,26,0,F0,92,0,-92,86,9,Pa,9 
2,6,-92,b6,-76,P-220,98, 26, -6,4. 6, - 
26,6,P4,-10,4,-2,4,4,F-4,1:,4,-2,6, 
-4,F-4,52, 6, "0, à,8,-28, ë.FÈ, "+9, si 
-2,9,4,F-4,12,4,-2,0,-3,P56.- 
b.4.8 
1926 DATA 26,-6,7-14,-12.6,4,F2,-6 
6.4,F4,2,4,-2,0,6,-4,2,0,-0.F4,6,-i 
3,4,6,2,12,-4,P24,-14.10,.4,4,26.-14 
8, PEG, -00,-20,.0,0.6,24,.0.F-4,-6.0, 
-4,4,6,F-4,.19,0,.4,4,6.F4,46,-20,0.0 
6.26,6,F-4,-5,4,-4,d,6,P-4,10,6,4, 
4,4 
3936 RESTORE 2936:RETURN: DATA 38.2, 
244,178,4,0,72,P4,-72,40,72,F38,0,4 
6,-72,0,72,P4,-72,62,0,F66,0,56.0,F 
116,20, 10.-10,0,-30,-10, 10,0, 40, 10 
.14,4,-14,27,0,P-23,-70,56,0,4,234, 


2, A 
















-22,4,F22,6,9,14,F-564,6,54,6,.-16,18 
.-50,0,F22,-28,0,12,6.0,8,-12,-6.6, 


P-à,5 
3746 DATA 4,-19,14,0,6, 16 


19,-36,P-6, ; 


#RA 


EC 


— 


CH 


3950 RESTORE 3950:RETURN: DATA 61,89 
,146,40,138,0,32,P0,-32, 102, 0,P118, 
0,18,6,P0,232,0,-32,40,-138,P-176,15 
4,0,-46,36,0,0,46,P-38,0,0,4,118,0, 
0,-4,-118,0,P80,0,0,-46,36, 0,0, 46,P 
-76,-16,40,0,P-49,4,40,0,P-36,4,0, 6 
.30,0,0,-6,-30,0,P-38,-28,0,6, 28,0, 
0, -6,-28,0 
3966 DATA P9,10,0,6,28,0,0,-6, -28, à 
.P4,19,0,6,28,0,0,-6,-28,0,P7E,-20, 
0,6,28,9,0,-6,-28,0,P0, 10, 0,6, 28,0, 
0,-b,-28,9,P0,10,0,6,28,0,0,-b,-28. 


9 

3970 RESTORE 3970:RETURN: DATA 61,13 
2,316,0,-178,8,18,198,0,8,-18, 0, 176 
.P-206,-152,9, 20, 198,0,0,-20,F-198, 
26,4,10,190,0,4,-10,P-194, 10,0, 18, 1 
96,6,0,-18,P-196, 18,4, 10,182,0,4,-1 
0,P-186,10,0,146,182,0,0,-16,F-182,1 
b,4,10,174,0,4,-10,F-178, 10,6, 14,17 
4,0,0,-14 


3980 DATA P-174,14,2,6,176,6,2,-6,F : 


-172,6,0,12,170,0,0,-12,P-170,12,2, 
6. 166,0,2,-b,P-168,6,0, 10, 166,4, - 
19,P-166,18,2,6,162,0,2,-6,F-164,6, 
0,8, 162,0,0,-8,P-162,8.4,6.F158.-6, 
-2,6 


3990 RESTORE 3996:RETURN: DATA 46,10 


9,146,49,58,9,112,F0,-112,198,6,F40 
.-58,-40,58,0,112,F-158,-112,6,10,1 
13,0,0,-10,P-108,19,0,76,P98,-70,0, 
74,F-98,-60, 26,0,P-20,20,20,4,P-26, 
26,26,0,P58, -49,29,0,F-20,26,20,0,P 
-26,26,20,0,F-78,18,6,-8,0,-44,-6,- 
8,6,66 


4008 DATA 58,0,0,-60,-6,8,0,44,6,6, : 


F-52,-52,46,0,F-46,44,46,0,F-92,18, 
),26,138,0,0,-29,-138,0 


gMig RESTORE 414:RETURN: DATA 96,48 6 


.tdé.66,118,0,52,P4,-52,16,0,F76,0, 
26,6,F66,0,26,0,P70,0,19,0,P66,-118 
,.-68,118,9,52,P-174,-56,6.14,58,0,6 
.-14,-70,0,0,-36,70,0,0,3h,P-60,-10 
.4,18,56,06,0,-19,-54,4,722,4,8,0,F- 
6,2,6,0,F-32,-26,0,-14,58,0,0,10,F- 
15, 44 
4826 DATA 68,6,19,-104,-136,8,52, 16 
4,0,16,68.0,0,-16,F-66,16,64,0,P-12 
4,-128,0,-8,134,0,0,8.-134,6,F2,6.6 
.-4,130,6.0,4,P-129,-16,0.4,F14.-4. 
6,4,P4,-4,0,4,P84,-4,0,4,P2,-4,6,4, 
F19,-4,0,4,P118.118,-14,-164,178,0, 
-52,104,-68,0,4,16,68.4,4,-16,F-66, 
18,64,4 
4918 DATA F-78,-116,0,8.134,9,6,-8, 
-134,0,P2.14,0,-4,136,8,0,4,F-126,- 
18,0,4,.P16,-4,6,4,P2,-4,6,4,F84,-4, 
d,4.F4,-4,0,4,Pi4,-4.64,4 
4649 RESTORE 4646:RETURN: DATA 37,2, 


?VG 


si 


?H4 


#RL 


xù 


De: 


>FN 


DA 


33 


264, 158,4,0,112,P4,-112,36,46,F3Bes, 
-46,-158,8,0,112,P6,-114,-16,46,F-6 
8,72,4,-72,08,0,6,72,P-06,-2,96.,0,F 
-20,0,0,-20,20,0,P-14,12,12,0,F-15, 
-2,12,0,0,-4,P-2,2,0,-2,F-6,.-2,0, -2 
,F-B6,-26, 2, 0,8,-0,-20,0, F4, 10,4,0 
à,-4 

4654 DATA F-4,-14,4,6,6,4 





4M6ÿ RESTORE 4G64: RETURN: DATA 49,86 à 


146, 66,98.0,72,-30,-32,P30,-40,58, 
d,F120,0, 28,0, P4b,-98, -bû,98,0,72,F 
-188,0,30,-22,P-50, 22, b,-2, 20, 0, 4,2 
F-50,0,20,-8,34,0,18,8,P-90,0, 54 - 
14,4B,0,28,14,P-18,-98.0,6.136, 0,0, 
-6,-136,0,P4,0,4,-14,10,-20,20,0,F1 
4,0,32,0 





4474 DATA F14,8,36,0,10,20,4,14,P-5 JE 


&,-28,18,0,-6,-16,-6, 0-6, 16, Fdb, 
18,0,-8,-16,-8,0,-6, 16 

A9BD RESTORE 46B0:RETURN: DATA 77.13 
2,316.0,-170,8,18,198,0,8,-18,0,170 
,F-206,-152,0,20,80,0.4,4,6,-4, 108, 
0,0,-20,F-198, 20, 4,10, 196,0,4,-10,P 
-194,10,0,18,190,0,0,-18,F-196, LE, 4 
.19,126,0,2,-6,4,6,50,0,4,-1à,P-186 
,19,9,16,182,0,0,-16,P-187, 16,4, 18, 
174,0 

4998 DATA 4,-10,P-178,10,0, 14,174,4 
19,-14,P-174,14,2,6,170,0,2,-8,P-17 
2,6,0,12,170,0,0,-12,P-170, 12,2, 6,9 
8,0,0,-4,6,4,62,0,2,-b,P-168, 6.0, 1ù 
,166,4,0,-19,P-166, 19, 2,6, 162,0,2,- 
&,P-164,6,0,8,162,0,0,-8,P-162.8,4, 
&,P158,-6,-2,6,P-98,-132,8,-8,P2.8, 
-2,-4 

4106 DATA P-68B,72,19,4, 10,2 

4116 RESTORE 4110:RETURN: DATA 53, 20 
d,316,0,-72, 20, -26, 256, -72,P-196, 17 
0,0,-52,196,-40,P-436.0,36,-20,-10. 
-24,-30,4,-10, 20, 20, 20, -38, 4,PÜ,-24 
,18,0,P0,-58, 10,38, F3, -4,20,-34,F- 
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16,58,14,-58,F-16,18,14,8,14,-4,4,- 
6,12,-18,-6,-4,4,-6,-4,-4,2,-4,F-55 


,32,8,-2 


4124 DATA -2,-8,16,-86,-4,-4,6,-5,-4 NY 


,-4,2,-4,F-24,32,8,-4,-2,-6,10,-4,- 
4,-B,6,-2,-4,-b,4,-2,F-22,26,4,-4,- 
2,-4,16,-4,-4,-6,6,-4,-4,-4 


4136 RESTORE 4136:RETURN: DATA 464,18 : 


d,146,20,98,58,0,30,-98,F-296, 118, 1 
78,0,P0,52,0,-72,20,0,0,70,58,0,0.- 
79,30,0,0,72,P2,-52, 176,0,F-2h6, -1E 
,58,9.P-58,98,20,0,2,4,4,-4,22,0,Fi 
32,-38,0,8,-20,4,-4,12,6,-10, 18, -2, 
0,19,-20,6,20,-4,0,14,4,-b,6,2,-b,- 
b,0,-12 

4146 DATA 12,4,4,-2,-i6,-6.0,-12 
4156 RESTORE 4150:RETURN: DATA 19. dû 
146,8, 170,P80.-176, 0, 170,FB,-170.6 
,178,P4,-144,12,12,0,132,P0,-132,15 
8,0,F6,132,0,-132,12,-12,P0,-28,0, 1 
78,P6,-174, 0, 176,P80, 170, d, 170 
4166 RESTORE 4160:RETURN: DATA 81,44 
,316,-20,-52,88,0,-26,52,F-28,-54,6 
-18,P8,18,0,-18,F64,-60,-18, 0,0, 26 
.18,0,0,-20,10,46,6,20,-10,-40,F-18 
.,8,49,20,0,F-24,-62,0,-8, 10,9,0,8 
.P4,-8,7,8,P10,-36,49,170,F118,-176 
,-46,170,P120,-152,-58, 0,0, 40,58.0, 
à,-40 


4174 DATA 26,24.6.80,4,4,0,-06,-4,- ; 


4,F-78, 26, 20, 20,56,0,-20,-20,F-38, 4 
,9,12,-10,-12,48,0,12, 12,-50,0,F-26 
26,58, 0, 20, 20,F-56,-20, 0, 19,F16, - 
19,0,10,P32, 0,0, 10,F4,10,0,30,F4,4, 
-20,-14,-4,6,24,24,4,0,F-24,-24,20, 
26,-58,0,-20,-20,54, 0,F-50,0, 24,24, 
ô,-4,F-8,4 


4186 DATA 4.4,4,6,P-8,-44,6,18,F4,- 3 


18,9,18,F4,-18,6,16 


4194 RESTORE AI9G:RETURN: DATA 99,2, : 


214,27,68,34,-98,-56,0,Flû, 0,0, -28, 


jofond, 
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“4218 DATA Pé,-22, 


= 


P12,20,0,-20,P0, 104,2, 14,28, 12,-22, 
18,5, 
B,-d0,-106,0,F26, 
-38,P222,0, 14,48, 24, 20,-18, 0, 26,72, 
P6D, 9, 18,-72,-18,0,24,-20, 14, -bû,-1 
38,9 





12,F100,0,10,-62,-36,0,32,-10, 
2,6,-38,F18,38,6, 









4264 DATA F6d,-3,6,-16,Fi8,16.8.-i6 : 


.P-228,0,40,136,P-38,-136,40,1736,P1 
14,-126,-49,136,P42,-136, -40, 136,P- 
276,-18,14,0,P134,0,230,0,18,18,F-18 
,-18,8,52,P106,-34,20,-16,44,6,F-44 
,0,0,52,P134,-52, 42, 0,F-276, 20,0, 32 
,P2,0,0,-32,74,0,0,32,P2,0.0,-32,F- 


42,9,8,32 





F-39,6,30,6,P-36,18,30,0,F-38, 18,5 
0,6,P14,-26,36,6,F-30,6,30,0,P-78, 1 
6,38,0,P-36,19,30,0,F-b4,-24,6 | 
19,-26,4,26,F14,-26,0,28,F18,-26,6, 
26,P18,-26,4,26,P10,-26,0,26 






4224 RESTORE 4220:RETURN: DATA 86,34 :K1 





,316,-20,-72,68,0,-18,7 
,-20,F8, 29,0,-20,F344,92,-22,-5 
,-19,-28,-10,-22,-60,136,0,-50, 132, 
P-26,-134,0,-18,P18,18,0,-18,F-416. 
120,18,0,P50,0, 130, 0,0, 32,F78,0,0,- 
32,100,0,F62,0,36,0,P-2746,-2,-12,-3 
8, -88, 0 

4236 DATA -96,-80,F2E,-18, 80,98, 56, 
0,-16,-58,P2,0, 16,58,P12,40, 12,380 
134,P76,-34,40,-136,P-2,0,-46, 136,0 
,34,P-74,-34,18,-18,0,92,P-2,-50,0, 
J0,P-4,-46,0,40,F-4,-36,0,36,F-4,-3 
2,0,32,P-4,-28,14,-16,P-14, 23, 14,-1 
b,P-14,24,14,-14,P-14,24,14,-10,F-8 
,14,8,-2 

4246 DATA F98,-30,-34,0,0,32,P2,-32 
.0,32,P8,-28,0,28,P10,-28,0,28,F 10, 
-28,0, 28,P-24,-28,30,0,P-20, 6, 30,6, 
F-30,10,30,0,P-20,10, 30,0 


4254 RESTORE 4256:RETURN: DATA 89,14 : 


0,144,20,78,F-18,-78, 20,78,P114,-78 
,-29,78,P22, -78, -24, 78,P-138,92,0,- 
92,318,0,0,92,P-316, -88,38,0,P100, à 
,178,0,P-278,-4,0,6,98,0,0,-6,P-88, 
6,0,4,78,0,0,-4,P-68, 4,0, 66,58, 0,0, 
-Lb,P-56,6,0,60,54,0,0,-64,P-28, 0,0 
,58,P9,-28 

4266 DATA 12,4,0,-10,F-B,6,4,0,0, -2 
.-4,0,P2,-2,P-32,-20,56,0,P-56, 18,5 
6,0, P-56,2,56,0,P-58,8, 26,0,P12,0, 1 
8,0,P-56,4,56,0,P-56,8,56,0,F-56,2, 
56,0,P-56, 16,56, 0,P82,-22,58,0,0,-6 
,-58,0,9,6,0,46,P58,-46,0, 46,P-28,- 
46,8,46,P-26,-46,0, 46, 24,0,0,-46,F4 
,0,0,46 

4270 DATA 22,0,0,-46,P-50, 4,22, 0,P- 
22,29,22,0,F-22,4,22,0,PE,-24, 18,0, 
P-18,20, 18,0,P-18, 4, 18,0 


32,F-38,-58,36,8 :E 
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extension 256K 


Version RAM : augmente de 256 K la capacité mé 
moire de votre CPC 

version silicon disk: permet le travail sur fichiers 
comme sur un disque normal mais avec un temps 
d'accès hyper-rapide 

extension 256 K RAM: 

Dpour CPC 464-664 

Opour CPC 6128 

extension 256 K silicon disc : 
Cpour CPC 464-664 

Cpour CPC6128 


Que ce soit en traitement de texte, gestion de fichier 
ou tout autre application cette extension mémoire vous 
permettra d'être plus “à l'aise” et vous évitera d'in- 
cessants accès disque. 
extension 256 K : 


Cpour PCW8256 .399F 


Le complément indispensable de votre Spectrum. Vous 
allez enfin pouvoir utiliser les instructions LPRINT 
{ou L LIST) mais aussi faire des copies d'écran sur 
imprimante. 

Interface centronics : 

Uinterface centronic 


(fronics 


les complices de vos Amstrad 


Extension 64 K 


Avec cette extension votre CPC 464 (ou 664) pourra, 
lui aussi, faire tourner DBASE Il, multiplan ou sim- 
plement vous permettre d'être moins “à l'étroit” pour 
vos propres programmes 

Extension 64 K: 


Cextension 64K ..499F 


Interface manette + 
synthétiseur 


Interface joystick + contrôleur de son: 
En plus de la possibilité de brancher un joystick, vous 
avez la possibilité de créer des sons ou de la musique 
sur 3 canaux et 8 octaves. De plus un port entrée/ 
sortie vous permet le contrôle d'appareils externes. 
Interface manette + synthétiseur : 

Cpour PCW 


Grâce à ce synthétiseur votre Spectrum va enfin 
pouvoir vous parler. Très simple à utiliser, il vous 
étonnera par sa capacité de parler en français, alle- 
mand, espagnol, anglais. avec, malgré tout, un typi- 
que accent anglais. Livré avec haut-parleur. 
Synthétiseur vocal : 

synthétiseur vocal 


Synthétiseur vocal 


Grâce à ce synthétiseur votre Amstrad va enfin pou- 
voir s'exprimer. Très simple à programmer il donnera 
un “plus” de qualité à vos programmes. Son origine 
anglaise lui vaut de conserver cet accent même lors- 
qu'il parle en français. Livré avec haut-parleur. 
synthétiseur vocal 

{avec logiciel en ROM 

Cpour CPC6128 out ent 

Opour CPC 464- 664 . 

synthétiseur vocal 

[avec logiciel en cassette) : 

Cpour CPC464-664 ..…. 


Interface manette 


Enfin vous allez pouvoir jouer sans “tricoter” avec 
vos doigts sur le clavier. Vous pourrez également 
utiliser le joystick dans votre propres programmes 
que ce soit en basic ou sous CP/M. 

Interface manette : 

Cinterface joystick PCW 

Dinterface joystick + joystick magnum 





Exploitez pleinement les capacités sonores et musicales 
de votre spectrum! Cette interface vous permettra 
de créer un bruit d'explosion ou de tir laser tout 
autant qu'une symphonie ou le dernier “tube” à la 
mode, livré avec haut-parleur. 

Synthétiseur musical : 

synthétiseur musical . 


22, rue de Montreuil 94300 VINCENNES - Tél.: (1) 43.28.22.06 
OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 het de 15 h à 19 h, LE SAMEDI de 10h 30à19h 


Crayon optique 


Exploitez pleinement et facilement les capacités graphi- 
ques de votre Amstrad. Avec ce crayon vous dessi- 
nerez encore plus facilement que sur du papier grâce à 
de nombreuses fonctions (cercle, ligne, carré, trait fin, 
gras, aérographe..). Vous pourrez même signer vos 
chefs d'œuvre! 

crayon optique [avec logiciel en ROM) : 
pour CPC464664 . 

Cpour CPC6128 

crayon optique [avec logiciel sur 


cassette) : 
Opour CPC 464 664 ....................... : 





extension horloge 


Cette extension va vous permettre d'avoir en perma- 
nence non seulement l'heure à la seconde près mais éga- 
lement le jour de la semaine et la date du jour. De 
plus un système d'alarme programmable vous évitera 
de rater l'heure de l'apéritif ou du film à la T.V. 
Grâce à des piles (non fournies) cette extension 
restera active même lorsque vous aurez arrêté votre 
PCW et gardera en mémoire les instructions que vous 
aurez programmées dans ses 50 bytes de RAM non 
volatile. 


extension horloge : 
CO pour PCW 


IL 


Les capacités graphiques de votre spectrum sont 
indéniables mais peu faciles à utiliser en basic. Grâce 
à ce crayon optique vous aurez enfin le moyen de 
réaliser des chefs d'œuvre. De nombreuses fonctions 
(carré, cercle, colorer, effacer, fin, gras...) vous faci- 
literont la tâche et font de ce produit une bonne 
initiation au D.A.0. 

Crayon optique : 

Elctayen ptite... ssscuressimmeusves 249F 


COMMENT COMMANDER : Cocher les) ar article(s) désiré(s) ou faites-en une liste Sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F. 60 F pour achat supérieur à 1000 F) 
JEPOSSEDE: OICPC6128 COICPC464 CICPC664 CIPCW8256 ECIPCW8512 [JSPECTRUM48K  [] SPECTRUM128K 


NOM 


ADRESSE 
Mode de paiement : [] 





TÉL. CODE POSTAL VILLE 
mandat / [] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 














